Code: Select all
(defun foo-bar (m)
(setq aa 1)
(loop until (> aa m) do
(write-line "foobar...")
(setq aa (+ aa 1))
)
)
Code: Select all
* (foo-bar 4)
foobar...
foobar...
foobar...
foobar...
NIL
Code: Select all
* (foo-bar 4)
; in: LAMBDA NIL
; (FOO-BAR 4)
;
; caught STYLE-WARNING:
; undefined function: FOO-BAR
;
; caught STYLE-WARNING:
; This function is undefined:
; FOO-BAR
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
debugger invoked on a UNDEFINED-FUNCTION: The function FOO-BAR is undefined.
Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.
restarts (invokable by number or by possibly-abbreviated name):
0: [ABORT] Exit debugger, returning to top level.
("bogus stack frame")
0]
I thought both do the same thing?