271 |
(signals-error |
(signals-error |
272 |
(labels ((%f (&key) :bad)) (%f nil nil)) |
(labels ((%f (&key) :bad)) (%f nil nil)) |
273 |
program-error) |
program-error) |
|
t) |
|
274 |
|
t) |
275 |
|
|
276 |
|
;;; Identity of function objects |
277 |
|
;;; Since (FUNCTION <name>) returns *the* functional value, it |
278 |
|
;;; should be the case that different invocations of this form |
279 |
|
;;; in the same lexical environment return the same value. |
280 |
|
|
281 |
|
(deftest labels.37 |
282 |
|
(labels ((f () 'foo)) |
283 |
|
(eqt #'f #'f)) |
284 |
|
t) |
285 |
|
|
286 |
|
(deftest labels.38 |
287 |
|
(labels ((f () 'foo)) |
288 |
|
(destructuring-bind (x y) (loop repeat 2 collect #'f) (eqlt x y))) |
289 |
|
t) |
290 |
|
|
291 |
|
(deftest labels.39 |
292 |
|
(labels ((f () #'f)) |
293 |
|
(eqlt (f) #'f)) |
294 |
|
t) |
295 |
|
|
296 |
|
(deftest labels.40 |
297 |
|
(let ((x (labels ((f () #'f)) #'f))) |
298 |
|
(eqlt x (funcall x))) |
299 |
|
t) |
300 |
|
|
301 |
|
|