bogus arguments to MOV: #<SB-C:TN #:G2!1[S8] :DEBUG-ENVIRONMENT> #<SB-C:TN #:G14!2[S7] :DEBUG-ENVIRONMENT>

[Paul F. Dietz]

(defun f393 (p1)
  (declare (optimize debug)
           (type (member 1 #\I #\# 3.12e7 1/2) p1))
  (char= p1 #\B #\1))

==>

bogus arguments to MOV: #<SB-C:TN #:G2!1[S8] :DEBUG-ENVIRONMENT> #<SB-C:TN #:G14!2[S7] :DEBUG-ENVIRONMENT>
   [Condition of type SIMPLE-ERROR]
[...]
Backtrace:
  0: (SB-X86-64-ASM::EMIT-MOV #<SB-ASSEM:SEGMENT {1018BCED43}> :QWORD #<SB-C:TN #:G2!1[S8] :DEBUG-ENVIRONMENT> #<SB-C:TN #:G14!2[S7] :DEBUG-ENVIRONMENT>)
  1: (SB-ASSEM::%ASSEMBLE #<SB-ASSEM:SEGMENT {1018BCED43}> (#<SB-ASSEM::STMT IGNORE {1018BC9E43}> . #<SB-ASSEM::STMT .ALIGN {1018BCEEF3}>))
  2: (SB-ASSEM:ASSEMBLE-SECTIONS #S(SB-ASSEM::ASMSTREAM :DATA-SECTION (#<SB-ASSEM::STMT IGNORE {1018BC9E43}> . #<SB-ASSEM::STMT .ALIGN {1018BCEEF3}>) :CODE-SECTION (#1=#<SB-ASSEM::STMT IGNORE {1018BC9E93}>..
  3: (SB-C::GENERATE-CODE #<SB-C:COMPONENT :NAME F393 {1018B30763}>)
  4: (SB-C::%COMPILE-COMPONENT #<SB-C:COMPONENT :NAME F393 {1018B30763}>)
[...]

[Stas Boukarev (stassats)]

bbfb155dbef8d5167b9b169fa0dc41e67b2e97e1