/[gcl]/gcl/ansi-tests/function-lambda-expression.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/function-lambda-expression.lsp

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

revision 1.3 by pfdietz, Sat Jan 17 13:31:44 2004 UTC revision 1.4 by pfdietz, Sun May 1 11:48:24 2005 UTC
# Line 21  Line 21 
21                  (notnot (second ret-vals))))))                  (notnot (second ret-vals))))))
22    3 t)    3 t)
23    
24    ;;; Verify that it doesn't barf on generic functions
25    (deftest function-lambda-expression.3
26      (length
27       (multiple-value-list
28        (function-lambda-expression
29         #'meaningless-user-generic-function-for-universe)))
30      3)
31    
32  (deftest function-lambda-expression.order.1  (deftest function-lambda-expression.order.1
33    (let ((i 0))    (let ((i 0))
34      (function-lambda-expression (progn (incf i) #'cons))      (function-lambda-expression (progn (incf i) #'cons))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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