daily pastebin goal
38%
SHARE
TWEET

Untitled

a guest Feb 13th, 2018 66 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 0 (UNIVERSAL-ERROR-HANDLER NIL CORE::SIMPLE-CONTROL-ERROR (:FORMAT-CONTROL "Restart ~S is not active." :FORMAT-ARGUMENTS (CLEAVIR-CST-TO-AST:CONSIDER-SPECIAL)))
  2. 1 (ERROR CORE::SIMPLE-CONTROL-ERROR :FORMAT-CONTROL "Restart ~S is not active." :FORMAT-ARGUMENTS (CLEAVIR-CST-TO-AST:CONSIDER-SPECIAL))
  3. 2 (APPLY #<COMPILED-CLOSURE@0x10a805708  ERROR :ftype :FUNCTION lambda-list: (DATUM &REST ARGUMENTS) :fptr 0x10b5dd6e0> CORE::SIMPLE-CONTROL-ERROR :FORMAT-CONTROL "Restart ~S is not active." :FORMAT-ARGUMENTS (CLEAVIR-CST-TO-AST:CONSIDER-SPECIAL) NIL)
  4. 3 (SIGNAL-SIMPLE-ERROR CONTROL-ERROR NIL "Restart ~S is not active." (CLEAVIR-CST-TO-AST:CONSIDER-SPECIAL))
  5. 4 (FIND-RESTART-NEVER-FAIL CLEAVIR-CST-TO-AST:CONSIDER-SPECIAL)
  6. 5 (INVOKE-RESTART CLEAVIR-CST-TO-AST:CONSIDER-SPECIAL)
  7. 6 (FUNCALL #<COMPILED-CLOSURE@0x1180f0d28  LAMBDA :ftype :FUNCTION lambda-list: (CONDITION) :fptr 0x11368f7e0> #<CLEAVIR-ENVIRONMENT:NO-VARIABLE-INFO>)
  8. 7 (SIGNAL #<CLEAVIR-ENVIRONMENT:NO-VARIABLE-INFO>)
  9. 8 (UNIVERSAL-ERROR-HANDLER NIL #<CLEAVIR-ENVIRONMENT:NO-VARIABLE-INFO> NIL)
  10. 9 (ERROR #<CLEAVIR-ENVIRONMENT:NO-VARIABLE-INFO>)
  11. 10 (CONVERT-ELEMENTARY-SETQ #<ATOM-CST raw: CORE::*ARG-CHECK*> #<CONS-CST raw: (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  12. 11 ({CONVERT-SPECIAL (((EQL (QUOTE SETQ)) T T T))} #<VA-LIST: (SETQ #<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  13. 12 (FUNCALL #<COMPILED-CLOSURE@0x1103d2708  (METHOD CONVERT-SPECIAL ((EQL (QUOTE SETQ)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x1107545c0> #<VA-LIST: (SETQ #<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  14. 13 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (SETQ #<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1103d2708  (METHOD CONVERT-SPECIAL ((EQL (QUOTE SETQ)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x1107545c0>))
  15. 14 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (SETQ #<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1103d2708  (METHOD CONVERT-SPECIAL ((EQL (QUOTE SETQ)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x1107545c0>))
  16. 15 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (SETQ #<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  17. 16 CONVERT-SPECIAL
  18. 17 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  19. 18 CONVERT-CST
  20. 19 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  21. 20 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  22. 21 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  23. 22 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  24. 23 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (SETQ CORE::*ARG-CHECK* (CONS (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  25. 24 CONVERT
  26. 25 ({CONVERT-CST ((T GLOBAL-MACRO-INFO T T))} #<CONS-CST raw: (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)> #<CLEAVIR-ENVIRONMENT:GLOBAL-MACRO-INFO> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  27. 26 CONVERT-CST
  28. 27 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  29. 28 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  30. 29 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  31. 30 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  32. 31 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  33. 32 CONVERT
  34. 33 ({CONVERT-SPECIAL (((EQL (QUOTE IF)) T T T))} #<VA-LIST: (IF #<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  35. 34 (FUNCALL #<COMPILED-CLOSURE@0x110237698  (METHOD CONVERT-SPECIAL ((EQL (QUOTE IF)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5b05c0> #<VA-LIST: (IF #<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  36. 35 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (IF #<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x110237698  (METHOD CONVERT-SPECIAL ((EQL (QUOTE IF)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5b05c0>))
  37. 36 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (IF #<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x110237698  (METHOD CONVERT-SPECIAL ((EQL (QUOTE IF)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5b05c0>))
  38. 37 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (IF #<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  39. 38 CONVERT-SPECIAL
  40. 39 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  41. 40 CONVERT-CST
  42. 41 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  43. 42 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  44. 43 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  45. 44 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  46. 45 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (IF CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*) (IF (NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*) NIL))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  47. 46 CONVERT
  48. 47 ({CONVERT-CST ((T GLOBAL-MACRO-INFO T T))} #<CONS-CST raw: (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*)))> #<CLEAVIR-ENVIRONMENT:GLOBAL-MACRO-INFO> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  49. 48 CONVERT-CST
  50. 49 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*)))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  51. 50 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*)))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  52. 51 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*)))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  53. 52 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*)))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  54. 53 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*)))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  55. 54 CONVERT
  56. 55 (CONVERT-SEQUENCE #<CONS-CST raw: ((CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  57. 56 ({CONVERT-SPECIAL (((EQL (QUOTE LOCALLY)) T T T))} #<VA-LIST: (LOCALLY #<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  58. 57 (FUNCALL #<COMPILED-CLOSURE@0x11022ff58  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LOCALLY)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x1107645c0> #<VA-LIST: (LOCALLY #<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  59. 58 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LOCALLY #<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x11022ff58  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LOCALLY)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x1107645c0>))
  60. 59 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LOCALLY #<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x11022ff58  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LOCALLY)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x1107645c0>))
  61. 60 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LOCALLY #<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  62. 61 CONVERT-SPECIAL
  63. 62 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  64. 63 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  65. 64 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  66. 65 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  67. 66 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  68. 67 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  69. 68 CONVERT
  70. 69 (CONVERT-SEQUENCE #<CONS-CST raw: ((LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  71. 70 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  72. 71 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  73. 72 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  74. 73 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  75. 74 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  76. 75 CONVERT-SPECIAL
  77. 76 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  78. 77 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  79. 78 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  80. 79 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  81. 80 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  82. 81 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  83. 82 CONVERT
  84. 83 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  85. 84 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  86. 85 PROCESS-PARAMETER-GROUPS
  87. 86 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::ALL-KEYWORDS #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  88. 87 PROCESS-PARAMETERS-IN-GROUP
  89. 88 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  90. 89 PROCESS-PARAMETER
  91. 90 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  92. 91 PROCESS-PARAMETERS-IN-GROUP
  93. 92 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  94. 93 PROCESS-PARAMETER-GROUP
  95. 94 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  96. 95 PROCESS-PARAMETER-GROUPS
  97. 96 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::ALL-KEYWORDS)> #<CONS-CST raw: ((LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  98. 97 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE::ALL-KEYWORDS)> #<CONS-CST raw: ((LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  99. 98 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE::ALL-KEYWORDS)> #<CONS-CST raw: ((LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  100. 99 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8  (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE::ALL-KEYWORDS)> #<CONS-CST raw: ((LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  101. 100 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::ALL-KEYWORDS)> #<CONS-CST raw: ((LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  102. 101 CONVERT-CODE
  103. 102 ({CONVERT-LAMBDA-CALL ((T T T))} #<CONS-CST raw: ((LAMBDA (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (NIL))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  104. 103 CONVERT-LAMBDA-CALL
  105. 104 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (NIL))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  106. 105 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (NIL))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  107. 106 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (NIL))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  108. 107 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (NIL))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  109. 108 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)) (NIL))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  110. 109 CONVERT
  111. 110 ({CONVERT-LET ((T T T))} #<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  112. 111 CONVERT-LET
  113. 112 ({CONVERT-SPECIAL (((EQL (QUOTE LET)) T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  114. 113 (FUNCALL #<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0> #<VA-LIST: (LET #<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  115. 114 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  116. 115 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET #<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  117. 116 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET #<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  118. 117 CONVERT-SPECIAL
  119. 118 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  120. 119 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  121. 120 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  122. 121 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  123. 122 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  124. 123 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  125. 124 CONVERT
  126. 125 (CONVERT-SEQUENCE #<CONS-CST raw: ((LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  127. 126 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  128. 127 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  129. 128 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  130. 129 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  131. 130 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  132. 131 CONVERT-SPECIAL
  133. 132 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  134. 133 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  135. 134 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  136. 135 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  137. 136 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  138. 137 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  139. 138 CONVERT
  140. 139 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  141. 140 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  142. 141 PROCESS-PARAMETER-GROUPS
  143. 142 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::PPN #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  144. 143 PROCESS-PARAMETERS-IN-GROUP
  145. 144 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  146. 145 PROCESS-PARAMETER
  147. 146 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  148. 147 PROCESS-PARAMETERS-IN-GROUP
  149. 148 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  150. 149 PROCESS-PARAMETER-GROUP
  151. 150 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  152. 151 PROCESS-PARAMETER-GROUPS
  153. 152 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::PPN)> #<CONS-CST raw: ((LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  154. 153 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE::PPN)> #<CONS-CST raw: ((LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  155. 154 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE::PPN)> #<CONS-CST raw: ((LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  156. 155 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8  (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE::PPN)> #<CONS-CST raw: ((LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  157. 156 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::PPN)> #<CONS-CST raw: ((LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  158. 157 CONVERT-CODE
  159. 158 ({CONVERT-LAMBDA-CALL ((T T T))} #<CONS-CST raw: ((LAMBDA (CORE::PPN) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) ((+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  160. 159 CONVERT-LAMBDA-CALL
  161. 160 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::PPN) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) ((+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  162. 161 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::PPN) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) ((+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  163. 162 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::PPN) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) ((+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  164. 163 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::PPN) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) ((+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  165. 164 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::PPN) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))) ((+ (LENGTH CORE::REQS) (FIRST CORE::OPTS))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  166. 165 CONVERT
  167. 166 ({CONVERT-LET ((T T T))} #<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  168. 167 CONVERT-LET
  169. 168 ({CONVERT-SPECIAL (((EQL (QUOTE LET)) T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  170. 169 (FUNCALL #<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  171. 170 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  172. 171 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  173. 172 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  174. 173 CONVERT-SPECIAL
  175. 174 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  176. 175 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  177. 176 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  178. 177 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  179. 178 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  180. 179 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  181. 180 CONVERT
  182. 181 (CONVERT-SEQUENCE #<CONS-CST raw: ((LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  183. 182 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  184. 183 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  185. 184 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  186. 185 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  187. 186 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  188. 187 CONVERT-SPECIAL
  189. 188 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  190. 189 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  191. 190 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  192. 191 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  193. 192 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  194. 193 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  195. 194 CONVERT
  196. 195 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  197. 196 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  198. 197 PROCESS-PARAMETER-GROUPS
  199. 198 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::NO-CHECK #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  200. 199 PROCESS-PARAMETERS-IN-GROUP
  201. 200 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  202. 201 PROCESS-PARAMETER
  203. 202 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  204. 203 PROCESS-PARAMETERS-IN-GROUP
  205. 204 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  206. 205 PROCESS-PARAMETER-GROUP
  207. 206 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  208. 207 PROCESS-PARAMETER-GROUPS
  209. 208 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::NO-CHECK)> #<CONS-CST raw: ((LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  210. 209 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE::NO-CHECK)> #<CONS-CST raw: ((LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  211. 210 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE::NO-CHECK)> #<CONS-CST raw: ((LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  212. 211 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8  (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE::NO-CHECK)> #<CONS-CST raw: ((LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  213. 212 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::NO-CHECK)> #<CONS-CST raw: ((LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  214. 213 CONVERT-CODE
  215. 214 ({CONVERT-LAMBDA-CALL ((T T T))} #<CONS-CST raw: ((LAMBDA (CORE::NO-CHECK) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))) (NIL))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  216. 215 CONVERT-LAMBDA-CALL
  217. 216 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::NO-CHECK) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))) (NIL))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  218. 217 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::NO-CHECK) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))) (NIL))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  219. 218 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::NO-CHECK) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))) (NIL))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  220. 219 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::NO-CHECK) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))) (NIL))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  221. 220 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::NO-CHECK) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))) (NIL))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  222. 221 CONVERT
  223. 222 ({CONVERT-LET ((T T T))} #<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  224. 223 CONVERT-LET
  225. 224 ({CONVERT-SPECIAL (((EQL (QUOTE LET)) T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  226. 225 (FUNCALL #<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  227. 226 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  228. 227 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  229. 228 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  230. 229 CONVERT-SPECIAL
  231. 230 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  232. 231 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  233. 232 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  234. 233 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  235. 234 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  236. 235 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  237. 236 CONVERT
  238. 237 (CONVERT-SEQUENCE #<CONS-CST raw: ((LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  239. 238 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  240. 239 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  241. 240 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  242. 241 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  243. 242 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  244. 243 CONVERT-SPECIAL
  245. 244 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  246. 245 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  247. 246 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  248. 247 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  249. 248 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  250. 249 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  251. 250 CONVERT
  252. 251 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  253. 252 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  254. 253 PROCESS-PARAMETER-GROUPS
  255. 254 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-POP #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  256. 255 PROCESS-PARAMETERS-IN-GROUP
  257. 256 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  258. 257 PROCESS-PARAMETER
  259. 258 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  260. 259 PROCESS-PARAMETERS-IN-GROUP
  261. 260 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  262. 261 PROCESS-PARAMETER-GROUP
  263. 262 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  264. 263 PROCESS-PARAMETER-GROUPS
  265. 264 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-POP)> #<CONS-CST raw: ((LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  266. 265 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-POP)> #<CONS-CST raw: ((LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  267. 266 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-POP)> #<CONS-CST raw: ((LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  268. 267 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8  (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-POP)> #<CONS-CST raw: ((LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  269. 268 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-POP)> #<CONS-CST raw: ((LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  270. 269 CONVERT-CODE
  271. 270 ({CONVERT-LAMBDA-CALL ((T T T))} #<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-POP) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))) ((SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  272. 271 CONVERT-LAMBDA-CALL
  273. 272 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-POP) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))) ((SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  274. 273 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-POP) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))) ((SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  275. 274 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-POP) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))) ((SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  276. 275 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-POP) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))) ((SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  277. 276 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-POP) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))) ((SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  278. 277 CONVERT
  279. 278 ({CONVERT-LET ((T T T))} #<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  280. 279 CONVERT-LET
  281. 280 ({CONVERT-SPECIAL (((EQL (QUOTE LET)) T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  282. 281 (FUNCALL #<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  283. 282 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  284. 283 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  285. 284 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  286. 285 CONVERT-SPECIAL
  287. 286 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  288. 287 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  289. 288 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  290. 289 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  291. 290 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  292. 291 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  293. 292 CONVERT
  294. 293 (CONVERT-SEQUENCE #<CONS-CST raw: ((LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  295. 294 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  296. 295 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  297. 296 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  298. 297 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  299. 298 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  300. 299 CONVERT-SPECIAL
  301. 300 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  302. 301 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  303. 302 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  304. 303 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  305. 304 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  306. 305 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  307. 306 CONVERT
  308. 307 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  309. 308 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  310. 309 PROCESS-PARAMETER-GROUPS
  311. 310 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CDR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  312. 311 PROCESS-PARAMETERS-IN-GROUP
  313. 312 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  314. 313 PROCESS-PARAMETER
  315. 314 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  316. 315 PROCESS-PARAMETERS-IN-GROUP
  317. 316 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  318. 317 PROCESS-PARAMETER-GROUP
  319. 318 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  320. 319 PROCESS-PARAMETER-GROUPS
  321. 320 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CDR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  322. 321 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CDR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  323. 322 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CDR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  324. 323 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8  (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CDR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  325. 324 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CDR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  326. 325 CONVERT-CODE
  327. 326 ({CONVERT-LAMBDA-CALL ((T T T))} #<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CDR) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))) ((SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  328. 327 CONVERT-LAMBDA-CALL
  329. 328 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CDR) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))) ((SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  330. 329 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CDR) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))) ((SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  331. 330 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CDR) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))) ((SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  332. 331 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CDR) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))) ((SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  333. 332 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CDR) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))) ((SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  334. 333 CONVERT
  335. 334 ({CONVERT-LET ((T T T))} #<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  336. 335 CONVERT-LET
  337. 336 ({CONVERT-SPECIAL (((EQL (QUOTE LET)) T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  338. 337 (FUNCALL #<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  339. 338 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  340. 339 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  341. 340 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  342. 341 CONVERT-SPECIAL
  343. 342 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  344. 343 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  345. 344 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  346. 345 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  347. 346 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  348. 347 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  349. 348 CONVERT
  350. 349 (CONVERT-SEQUENCE #<CONS-CST raw: ((LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  351. 350 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  352. 351 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  353. 352 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  354. 353 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  355. 354 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  356. 355 CONVERT-SPECIAL
  357. 356 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  358. 357 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  359. 358 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  360. 359 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  361. 360 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  362. 361 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  363. 362 CONVERT
  364. 363 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  365. 364 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  366. 365 PROCESS-PARAMETER-GROUPS
  367. 366 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::UNSAFE-CAR #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  368. 367 PROCESS-PARAMETERS-IN-GROUP
  369. 368 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  370. 369 PROCESS-PARAMETER
  371. 370 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  372. 371 PROCESS-PARAMETERS-IN-GROUP
  373. 372 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  374. 373 PROCESS-PARAMETER-GROUP
  375. 374 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  376. 375 PROCESS-PARAMETER-GROUPS
  377. 376 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CAR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  378. 377 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CAR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  379. 378 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CAR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  380. 379 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8  (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CAR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  381. 380 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::UNSAFE-CAR)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  382. 381 CONVERT-CODE
  383. 382 ({CONVERT-LAMBDA-CALL ((T T T))} #<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CAR) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))) ((SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  384. 383 CONVERT-LAMBDA-CALL
  385. 384 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CAR) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))) ((SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  386. 385 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CAR) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))) ((SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  387. 386 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CAR) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))) ((SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  388. 387 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CAR) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))) ((SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  389. 388 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::UNSAFE-CAR) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))) ((SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER)))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  390. 389 CONVERT
  391. 390 ({CONVERT-LET ((T T T))} #<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  392. 391 CONVERT-LET
  393. 392 ({CONVERT-SPECIAL (((EQL (QUOTE LET)) T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  394. 393 (FUNCALL #<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  395. 394 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  396. 395 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  397. 396 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  398. 397 CONVERT-SPECIAL
  399. 398 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  400. 399 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  401. 400 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  402. 401 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  403. 402 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  404. 403 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  405. 404 CONVERT
  406. 405 (CONVERT-SEQUENCE #<CONS-CST raw: ((LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  407. 406 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  408. 407 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  409. 408 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  410. 409 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  411. 410 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  412. 411 CONVERT-SPECIAL
  413. 412 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  414. 413 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  415. 414 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  416. 415 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  417. 416 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  418. 417 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  419. 418 CONVERT
  420. 419 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  421. 420 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  422. 421 PROCESS-PARAMETER-GROUPS
  423. 422 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE::CONS-POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  424. 423 PROCESS-PARAMETERS-IN-GROUP
  425. 424 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  426. 425 PROCESS-PARAMETER
  427. 426 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  428. 427 PROCESS-PARAMETERS-IN-GROUP
  429. 428 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  430. 429 PROCESS-PARAMETER-GROUP
  431. 430 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  432. 431 PROCESS-PARAMETER-GROUPS
  433. 432 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE::CONS-POINTER)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  434. 433 (FUNCALL #<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440> #<VA-LIST: (#<CONS-CST raw: (CORE::CONS-POINTER)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  435. 434 ({CONVERT-CODE ((T T T CLASP))} #<VA-LIST: (#<CONS-CST raw: (CORE::CONS-POINTER)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  436. 435 (FUNCALL #<COMPILED-CLOSURE@0x10c71d8c8  (METHOD CONVERT-CODE (T T T CLASP)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x112ea9440> #<VA-LIST: (#<CONS-CST raw: (CORE::CONS-POINTER)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c6aeb68  (METHOD CONVERT-CODE (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c04440>))
  437. 436 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (CORE::CONS-POINTER)> #<CONS-CST raw: ((LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  438. 437 CONVERT-CODE
  439. 438 ({CONVERT-LAMBDA-CALL ((T T T))} #<CONS-CST raw: ((LAMBDA (CORE::CONS-POINTER) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))) ((SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  440. 439 CONVERT-LAMBDA-CALL
  441. 440 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::CONS-POINTER) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))) ((SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  442. 441 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::CONS-POINTER) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))) ((SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  443. 442 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::CONS-POINTER) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))) ((SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  444. 443 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::CONS-POINTER) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))) ((SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  445. 444 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: ((LAMBDA (CORE::CONS-POINTER) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))) ((SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER)))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  446. 445 CONVERT
  447. 446 ({CONVERT-LET ((T T T))} #<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  448. 447 CONVERT-LET
  449. 448 ({CONVERT-SPECIAL (((EQL (QUOTE LET)) T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  450. 449 (FUNCALL #<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  451. 450 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  452. 451 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1104eb2a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE LET)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x11075a5a0>))
  453. 452 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (LET #<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  454. 453 CONVERT-SPECIAL
  455. 454 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  456. 455 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  457. 456 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  458. 457 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  459. 458 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  460. 459 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  461. 460 CONVERT
  462. 461 (CONVERT-SEQUENCE #<CONS-CST raw: ((LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  463. 462 ({CONVERT-SPECIAL (((EQL (QUOTE PROGN)) T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  464. 463 (FUNCALL #<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  465. 464 ({CONVERT-SPECIAL ((:AROUND) (T T T T))} #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  466. 465 (FUNCALL #<COMPILED-CLOSURE@0x10c5de318  (METHOD CONVERT-SPECIAL (:AROUND) (T T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110c1e440> #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x1106119a8  (METHOD CONVERT-SPECIAL ((EQL (QUOTE PROGN)) T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x10e5bc5c0>))
  467. 466 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (PROGN #<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  468. 467 CONVERT-SPECIAL
  469. 468 ({CONVERT-CST ((T SPECIAL-OPERATOR-INFO T T))} #<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<CLEAVIR-ENVIRONMENT:SPECIAL-OPERATOR-INFO> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  470. 469 ({CONVERT ((T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  471. 470 (FUNCALL #<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  472. 471 ({CONVERT ((:AROUND) (T T T))} #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  473. 472 (FUNCALL #<COMPILED-CLOSURE@0x10c9771c8  (METHOD CONVERT (:AROUND) (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6f3d0> #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> (#<COMPILED-CLOSURE@0x10c539ee8  (METHOD CONVERT (T T T)) :ftype :FUNCTION lambda-list: (.METHOD-ARGS. .NEXT-METHODS.) :fptr 0x110b6c480>))
  474. 473 (COMBINE-METHOD-FUNCTIONS.LAMBDA #<VA-LIST: (#<CONS-CST raw: (PROGN (LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-READER:UNQUOTE-SPLICING (IF CORE:ALLOW-OTHER-KEYS '(T) 'NIL)))) CORE::*ARG-CHECK*)) ((NOT CORE::NO-CHECK) (PUSH (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (CORE::DM-TOO-MANY-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM)))) CORE::*ARG-CHECK*))) CORE::PPN)))))))))> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  475. 474 CONVERT
  476. 475 (CONVERT-BODY #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)
  477. 476 ({PROCESS-PARAMETER-GROUPS ((NULL T T T T))} #<VA-LIST: (NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  478. 477 PROCESS-PARAMETER-GROUPS
  479. 478 ({PROCESS-PARAMETERS-IN-GROUP ((NULL T T T T T T))} #<VA-LIST: (NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE CORE:POINTER #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  480. 479 PROCESS-PARAMETERS-IN-GROUP
  481. 480 ({PROCESS-PARAMETER ((SIMPLE-VARIABLE T T T T T T T T))} #<VA-LIST: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE> NIL NIL NIL NIL NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  482. 481 PROCESS-PARAMETER
  483. 482 ({PROCESS-PARAMETERS-IN-GROUP ((CONS T T T T T T))} #<VA-LIST: ((#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>) NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  484. 483 PROCESS-PARAMETERS-IN-GROUP
  485. 484 ({PROCESS-PARAMETER-GROUP ((MULTI-PARAMETER-GROUP-MIXIN T T T T T T))} #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  486. 485 PROCESS-PARAMETER-GROUP
  487. 486 (APPLY #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:PROCESS-PARAMETER-GROUP> #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  488. 487 (INVALIDATED-DISPATCH-FUNCTION #<FUNCALLABLE-INSTANCE CLEAVIR-CST-TO-AST:PROCESS-PARAMETER-GROUP> #<VA-LIST: (#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)> NIL (NIL) NIL #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)>)
  489. 488 ({PROCESS-PARAMETER-GROUPS ((CONS T T T T))} #<VA-LIST: ((#<ORDINARY-REQUIRED-PARAMETER-GROUP parameters: (#<CONCRETE-SYNTAX-TREE:SIMPLE-VARIABLE>)>) ((NIL)) #<CLEAVIR-CST-TO-AST::BODY> #<LEXICAL-VARIABLE #:G61123 #<CLEAVIR-AST:LEXICAL-AST>> #<CLASP-CLEAVIR::CLASP-64BIT>)> NIL)
  490. 489 PROCESS-PARAMETER-GROUPS
  491. 490 ({CONVERT-CODE ((T T T T))} #<VA-LIST: (#<CONS-CST raw: (CORE:POINTER)> #<CONS-CST raw: ((LET ((CORE::CONS-POINTER (SICL-READER:QUASIQUOTE (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE:POINTER))))) (LET ((CORE::UNSAFE-CAR (SICL-READER:QUASIQUOTE (CAR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-CDR (SICL-READER:QUASIQUOTE (CDR (SICL-READER:UNQUOTE CORE::CONS-POINTER))))) (LET ((CORE::UNSAFE-POP (SICL-READER:QUASIQUOTE (SETQ (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CDR))))) (LET ((CORE::NO-CHECK NIL)) (LET ((CORE::PPN (+ (LENGTH CORE::REQS) (FIRST CORE::OPTS)))) (LET (CORE::ALL-KEYWORDS) (LOCALLY (CORE::DM-V CORE:POINTER (IF CORE::MACRO (IF (MEMBER CORE::MACRO '(DEFINE-COMPILER-MACRO CORE:BCLASP-DEFINE-COMPILER-MACRO)) (SICL-READER:QUASIQUOTE (IF (AND (EQ (CAR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCALL) (CONSP (CADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (CAADR (SICL-READER:UNQUOTE CORE::WHOLE)) 'FUNCTION) (CONSP (CDADR (SICL-READER:UNQUOTE CORE::WHOLE))) (EQ (SECOND (SECOND (SICL-READER:UNQUOTE CORE::WHOLE))) '(SICL-READER:UNQUOTE CORE::MACRO-NAME))) (CDDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))) (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) (SICL-READER:QUASIQUOTE (CDR (EXT:TRULY-THE CONS (SICL-READER:UNQUOTE CORE::WHOLE))))) CORE::WHOLE)) (DOLIST (CORE::V (CDR CORE::REQS)) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (PROGN (IF (NULL (SICL-READER:UNQUOTE CORE:POINTER)) (CORE::DM-TOO-FEW-ARGUMENTS (SICL-READER:UNQUOTE CORE::BASIS-FORM))) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)))))) (DOTIMES (CORE::I (POP CORE::OPTS)) (LET* ((CORE::X (FIRST CORE::OPTS)) (CORE::INIT (SECOND CORE::OPTS)) (CORE::SV (THIRD CORE::OPTS))) (SETQ CORE::OPTS (CDDDR CORE::OPTS)) (COND (CORE::SV (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::INIT)))) (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (AND (SICL-READER:UNQUOTE CORE:POINTER) (PROGN (SICL-READER:UNQUOTE CORE::UNSAFE-POP) T))))) (T (CORE::DM-V CORE::X (SICL-READER:QUASIQUOTE (IF (SICL-READER:UNQUOTE CORE:POINTER) (PROG1 (SICL-READER:UNQUOTE CORE::UNSAFE-CAR) (SICL-READER:UNQUOTE CORE::UNSAFE-POP)) (SICL-READER:UNQUOTE CORE::INIT)))))))) (WHEN REST (CORE::DM-V REST CORE:POINTER) (SETQ CORE::NO-CHECK T)) (DOTIMES (CORE::I (POP CORE:KEYS)) (LET* ((CORE::TEMP (CORE::TEMPSYM)) (CORE::K (FIRST CORE:KEYS)) (CORE::V (SECOND CORE:KEYS)) (CORE::INIT (THIRD CORE:KEYS)) (CORE::SV (FOURTH CORE:KEYS))) (SETQ CORE::NO-CHECK T) (SETQ CORE:KEYS (CDDDDR CORE:KEYS)) (CORE::DM-V CORE::TEMP (SICL-READER:QUASIQUOTE (CORE::SEARCH-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::K)))) (CORE::DM-V CORE::V (SICL-READER:QUASIQUOTE (IF (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD) (SICL-READER:UNQUOTE CORE::INIT) (SICL-READER:UNQUOTE CORE::TEMP)))) (WHEN CORE::SV (CORE::DM-V CORE::SV (SICL-READER:QUASIQUOTE (NOT (EQ (SICL-READER:UNQUOTE CORE::TEMP) 'CORE::MISSING-KEYWORD))))) (PUSH CORE::K CORE::ALL-KEYWORDS))) (DO ((CORE::L CORE::AUXS (CDDR CORE::L))) ((ENDP CORE::L)) (LET* ((CORE::V (FIRST CORE::L)) (CORE::INIT (SECOND CORE::L))) (CORE::DM-V CORE::V CORE::INIT))) (COND (CORE::KEY-FLAG (PUSH (SICL-READER:QUASIQUOTE (CORE::CHECK-KEYWORD (SICL-READER:UNQUOTE CORE:POINTER) '(SICL-READER:UNQUOTE CORE::ALL-KEYWORDS) (SICL-REA