diff options
Diffstat (limited to 'dev-lisp/cl-with/files/20020712-gentoo.patch')
| -rw-r--r-- | dev-lisp/cl-with/files/20020712-gentoo.patch | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/dev-lisp/cl-with/files/20020712-gentoo.patch b/dev-lisp/cl-with/files/20020712-gentoo.patch new file mode 100644 index 000000000000..eed9b6a78f47 --- /dev/null +++ b/dev-lisp/cl-with/files/20020712-gentoo.patch @@ -0,0 +1,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~ |