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

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

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

revision 1.8 by pfdietz, Thu Oct 10 03:19:37 2002 UTC revision 1.9 by pfdietz, Fri Oct 11 02:48:35 2002 UTC
# Line 133  the condition to go uncaught if it canno Line 133  the condition to go uncaught if it canno
133      (values (not (not result))      (values (not (not result))
134              (not (not good)))))              (not (not good)))))
135    
136  (eval-when (load eval compile)  ;;; (eval-when (load eval compile)
137    (unless (fboundp 'complement)  ;;;   (unless (fboundp 'complement)
138      (defun complement (fn)  ;;;     (defun complement (fn)
139        #'(lambda (&rest args) (not (apply fn args))))))  ;;;       #'(lambda (&rest args) (not (apply fn args))))))
140    
141  (defun compose (&rest fns)  (defun compose (&rest fns)
142    (let ((rfns (reverse fns)))    (let ((rfns (reverse fns)))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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