hexstream / first-time-value Goto Github PK

> (defun foo () (first-time-value "xxx"))
> (compile 'foo)
> (foo)

*** - SYMBOL-VALUE: variable #:GENSYM6474 has no value

<1/150> #<SYSTEM-FUNCTION SHOW-STACK> 3
<2/143> #<COMPILED-FUNCTION SYSTEM::PRINT-BACKTRACE>
<3/137> #<COMPILED-FUNCTION SYSTEM::DEBUG-BACKTRACE>
<4/128> #<SYSTEM-FUNCTION SYSTEM::READ-EVAL-PRINT> 2
<5/125> #<COMPILED-FUNCTION SYSTEM::BREAK-LOOP-2-3>
<6/121> #<SYSTEM-FUNCTION SYSTEM::SAME-ENV-AS> 2
<7/107> #<COMPILED-FUNCTION SYSTEM::BREAK-LOOP-2>
<8/105> #<SYSTEM-FUNCTION SYSTEM::DRIVER>
<9/65> #<COMPILED-FUNCTION SYSTEM::BREAK-LOOP>
<10/62> #<SYSTEM-FUNCTION INVOKE-DEBUGGER> 1
<11/52> #<SYSTEM-FUNCTION ERROR>
<12/39> #<COMPILED-FUNCTION SYSTEM::CHECK-VALUE>
<13/37> #<SYSTEM-FUNCTION SYMBOL-VALUE>
<14/35> #<COMPILED-FUNCTION FOO>