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

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

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

revision 1.101 by pfdietz, Fri Aug 13 13:38:06 2004 UTC revision 1.102 by pfdietz, Sun Aug 22 00:50:53 2004 UTC
# Line 37  Line 37 
37    (etypecase fn    (etypecase fn
38      (function fn)      (function fn)
39      (symbol (symbol-function fn))      (symbol (symbol-function fn))
40      ((cons (eql setf) symbol) (fdefinition fn))))          ((cons (eql setf) (cons symbol nil)) (fdefinition fn))))
41    
42  ;;; Macro to check that a function is returning a specified number of values  ;;; Macro to check that a function is returning a specified number of values
43  ;;; (defaults to 1)  ;;; (defaults to 1)

Legend:
Removed from v.1.101  
changed lines
  Added in v.1.102

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