lisp
COMMON-LISP-USER> (let ()(= #C(1 2) #C(1 2)))
Condition of type: SIMPLE-PROGRAM-ERROR
Numbers of class COMPLEX and COMPLEX are not commensurable, or operation is unimplemented
Available restarts:
(use :r1 to invoke restart 1)
1. (RESTART-TOPLEVEL) Go back to Top-Level REPL.
Broken at frame[105] CORE:CALL-WITH-VARIABLE-BOUND. In: #<process top-level>.
File: #P"/Users/karstenpoeck/lisp/compiler/clasp2/src/core/compiler.cc" (Position #26661)
COMMON-LISP-USER>> :b
0: (UNIVERSAL-ERROR-HANDLER NIL CORE:SIMPLE-PROGRAM-ERROR (:FORMAT-CONTROL "Numbers of class COMPLEX and COMPLEX are not commensurable, or operation is unimplemented" :FORMAT-ARGUMENTS NIL))
1: (ERROR CORE:SIMPLE-PROGRAM-ERROR :FORMAT-CONTROL "Numbers of class COMPLEX and COMPLEX are not commensurable, or operation is unimplemented" :FORMAT-ARGUMENTS NIL)
2: (APPLY #<function error> CORE:SIMPLE-PROGRAM-ERROR :FORMAT-CONTROL "Numbers of class COMPLEX and COMPLEX are not commensurable, or operation is unimplemented" :FORMAT-ARGUMENTS NIL NIL)
3: (SIGNAL-SIMPLE-ERROR CORE:SIMPLE-PROGRAM-ERROR NIL "Numbers of class COMPLEX and COMPLEX are not commensurable, or operation is unimplemented" NIL)
4: (TWO-ARG-= #C(1 2) #C(1 2))
5: (INLINED-TWO-ARG-= #C(1 2) #C(1 2))
6: (LAMBDA)
7: (RUN-THUNK #<function lambda>)
8: (LAMBDA (LET NIL (= #C(1 2) #C(1 2))))
</function></function></process>`
该提问来源于开源项目：clasp-developers/clasp
