blob: eed9b6a78f47fd6a8be60b1e3ac8cbaec2428bcb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
Only in with: with.fasl
diff -u with.orig/with.lisp with/with.lisp
--- with.orig/with.lisp 2002-02-19 05:48:00.000000000 -0600
+++ with/with.lisp 2005-10-01 01:58:49.000000000 -0500
@@ -187,7 +187,7 @@
collect x
do (pop lst))))
(values decltok decls lst)))
- (t (error "~S is not a WITH declaration keyword"))))
+ (t (error "~S is not a WITH declaration keyword" decltok))))
(defun decl-terminating-kw-p (x)
(or (null x)
@@ -215,7 +215,7 @@
(or (symbol-name-equal x "DO")
(symbol-name-equal x "IN")))
-(defconstant +default-eq-toks+ '(= := <-))
+(cl+:defconst +default-eq-toks+ '(= := <-))
(defun kw-in-set-p (x &optional (valid-eq-toks +default-eq-toks+))
(member x valid-eq-toks :test #'symbol-name-equal))
Only in with: with.lisp~
|
GitWeb
