Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sat Oct 19 12:55:37 2002 UTC | revision 1.2 by pfdietz, Sat Oct 19 13:10:23 2002 UTC | |
---|---|---|
# | Line 101 | Line 101 |
101 | `(let ,vars | `(let ,vars |
102 | (and (eql (multiple-value-setq ,vars (values-list (quote ,result))) | (and (eql (multiple-value-setq ,vars (values-list (quote ,result))) |
103 | ,(car result)) | ,(car result)) |
104 | (equal (list ,@vars) (quote ,result))))) | (equal ,(make-list-expr vars) |
105 | (quote ,result))))) | |
106 | unless (eval form) | unless (eval form) |
107 | collect (list i form))) | collect (list i form))) |
108 | nil) | nil) |
|# | ||
109 | |# |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |