/[gcl]/gcl/ansi-tests/labels.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/labels.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by pfdietz, Mon Jul 19 23:52:05 2004 UTC revision 1.11 by pfdietz, Fri Nov 5 03:33:22 2004 UTC
# Line 271  Line 271 
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    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26