~mdw
/
lisp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Upgrade everything for SBCL.
[lisp]
/
infix.lisp
diff --git
a/infix.lisp
b/infix.lisp
index
579bce4
..
64a0a30
100644
(file)
--- a/
infix.lisp
+++ b/
infix.lisp
@@
-610,11
+610,11
@@
(pushval `(loop ,@(strip-progn (parse-infix 0)))))
(defopfunc bind operand
(pushval `(loop ,@(strip-progn (parse-infix 0)))))
(defopfunc bind operand
- (labels ((loop ()
+ (labels ((loop
y
()
(let ((ids (parse-ident-list))
(valform (progn (delim '=) (parse-infix 0)))
(body (if (delim '|,| nil)
(let ((ids (parse-ident-list))
(valform (progn (delim '=) (parse-infix 0)))
(body (if (delim '|,| nil)
- (loop)
+ (loop
y
)
(progn
(delim 'in)
(strip-progn (parse-infix 0))))))
(progn
(delim 'in)
(strip-progn (parse-infix 0))))))
@@
-622,7
+622,7
@@
`(let ((,(car ids) ,valform)) ,@body)
`(multiple-value-bind ,ids ,valform ,@body))))))
(get-token)
`(let ((,(car ids) ,valform)) ,@body)
`(multiple-value-bind ,ids ,valform ,@body))))))
(get-token)
- (pushval (car (loop)))))
+ (pushval (car (loop
y
)))))
;;;--------------------------------------------------------------------------
;;; Parsing function bodies and lambda lists.
;;;--------------------------------------------------------------------------
;;; Parsing function bodies and lambda lists.