Ticket #1013: apply-error-repl

File apply-error-repl, 1.6 KB (added by Staremastershy, 23 months ago)
Line 
1Welcome to Clozure Common Lisp Version 1.9-dev-r15457M-trunk  (LinuxX8664)!
2? (declaim (inline mult2))
3NIL
4? (defun mult2 (a &optional (b 1.0)) (* a b) )
5MULT2
6? (mult2 1.0 2.0)
72.0
8? (mult2 1.0)
91.0
10? (apply #'mult2 '(1.0))
111.0
12? (let ((x '((1.0)(2.0))))
13    (first x))
14(1.0)
15? (let ((x '((1.0)(2.0))))
16    (apply #'mult2 (first x)))
17> Error: The value NIL is not of the expected type NUMBER.
18> While executing: CCL::*-2, in process listener(1).
19> Type :POP to abort, :R for a list of available restarts.
20> Type :? for other options.
211 > :B
22 (7FBF366AFA30) : 0 (*-2 1.0 NIL) 1253
23 (7FBF366AFA68) : 1 (TOPLEVEL-EVAL (LET (#) (APPLY # #)) NIL) 717
24 (7FBF366AFB08) : 2 (READ-LOOP :INPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x3020006C358D> :OUTPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x3020006C342D> :BREAK-LEVEL 0 :PROMPT-FUNCTION #<Compiled-function (:INTERNAL CCL::READ-LOOP) (Non-Global)  #x300000520FDF>) 2325
25 (7FBF366AFD68) : 3 (RUN-READ-LOOP :BREAK-LEVEL 0) 157
26 (7FBF366AFD90) : 4 (TOPLEVEL-LOOP) 101
27 (7FBF366AFDB8) : 5 (FUNCALL #'#<(:INTERNAL (TOPLEVEL-FUNCTION (CCL::LISP-DEVELOPMENT-SYSTEM T)))>) 101
28 (7FBF366AFDD8) : 6 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>) 645
29 (7FBF366AFE70) : 7 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER listener(1) [Active] #x3020006C231D> (#<COMPILED-LEXICAL-CLOSURE # #x3020006C1E4F>)) 717
30 (7FBF366AFF08) : 8 (FUNCALL #'#<(:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (PROCESS)))> #<TTY-LISTENER listener(1) [Active] #x3020006C231D> (#<COMPILED-LEXICAL-CLOSURE # #x3020006C1E4F>)) 549
31 (7FBF366AFF98) : 9 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 301
321 >