GNU CLISP 2.41 (2006-10-13)
> (compile nil '(lambda () (declare (optimize foo))))
*** - STRING-CONCAT: argument WARN is not a string
The following restarts are available:
USE-VALUE :R1 You may input a value to be used instead.
ABORT :R2 ABORT
Break 1 [2]> :r1
Use instead: "<warning>"
WARNING :
<warning>
#<COMPILED-FUNCTION NIL> ;
1 ;
1
Logged In: YES
user_id=5735
Originator: NO
please try this patch:
--- compiler.lisp 18 Dec 2006 15:58:35 -0500 1.299
+++ compiler.lisp 19 Dec 2006 10:41:16 -0500
@@ -1424,7 +1424,7 @@
(defun parse-optimize-quality (spec)
(macrolet ((broken (&rest args)
`(progn
- (c-warn 'warn ,@args)
+ (c-warn ,@args)
(values))))
(let ((quality spec) (value 3))
(if (or (symbolp spec)
@@ -1436,7 +1436,7 @@
(values quality value)
(broken (TEXT "Not a valid optimization level for ~S, should be one of 0, 1, 2, 3: ~S")
quality value))
- (broken (TEXT "~S is not a valid ~S quality.") 'optimize quality))
+ (broken (TEXT "~S is not a valid ~S quality.") quality 'optimize))
(broken (TEXT "Not a valid ~S specifier: ~S") 'optimize spec)))))
;; (process-declarations declspeclist) analyzes the declarations (as they come
Logged In: YES
user_id=5735
Originator: NO
thank you for your bug report.
the bug has been fixed in the CVS tree.
you can either wait for the next release (recommended)
or check out the current CVS tree (see http://clisp.cons.org\)
and build CLISP from the sources (be advised that between
releases the CVS tree is very unstable and may not even build
on your platform).