Changeset 11806

Timestamp:

04/30/09 06:13:35 (14 years ago)

Author:

ehuelsmann

Message:

Remove compiler warning about non-constant initforms:
we support them now!

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp (modified) (4 diffs)

trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

@@ -378 +378 @@
   form)
 
-(defun validate-name-and-lambda-list (name lambda-list context)
+(defun validate-function-name (name)
   (unless (or (symbolp name) (setf-function-name-p name))
-    (compiler-error "~S is not a valid function name." name))
-  (when (or (memq '&optional lambda-list)
-            (memq '&key lambda-list))
-    (let ((state nil))
-      (dolist (arg lambda-list)
-        (cond ((memq arg lambda-list-keywords)
-               (setf state arg))
-              ((memq state '(&optional &key))
-               (when (and (consp arg) (not (constantp (second arg))))
-                 (compiler-unsupported
-                  "~A: can't handle ~A argument with non-constant initform."
-                  context
-                  (if (eq state '&optional) "optional" "keyword")))))))))
-
-(defmacro with-local-functions-for-flet/labels 
-    (form local-functions-var lambda-name lambda-list-var name-var body-var body1 body2)
+    (compiler-error "~S is not a valid function name." name)))
+
+(defmacro with-local-functions-for-flet/labels
+    (form local-functions-var lambda-list-var name-var body-var body1 body2)
   `(progn (incf (compiland-children *current-compiland*) (length (cadr ,form)))
     (let ((*visible-variables* *visible-variables*)
@@ -404 +392 @@
         (let ((,name-var (car definition))
         (,lambda-list-var (cadr definition)))
-    (validate-name-and-lambda-list ,name-var ,lambda-list-var ,lambda-name)
-  
+    (validate-function-name ,name-var)
     (let* ((,body-var (cddr definition))
            (compiland (make-compiland :name ,name-var
@@ -575 +562 @@
 (defun p1-flet (form)
   (with-local-functions-for-flet/labels
-      form local-functions 'FLET lambda-list name body
+      form local-functions lambda-list name body
       ((let ((local-function (make-local-function :name name
              :compiland compiland)))
@@ -602 +589 @@
 (defun p1-labels (form)
   (with-local-functions-for-flet/labels
-      form local-functions 'LABELS lambda-list name body
+      form local-functions lambda-list name body
       ((let* ((variable (make-variable :name (gensym)))
         (local-function (make-local-function :name name