Changeset 4461

Timestamp:

10/19/03 18:58:56 (19 years ago)

Author:

piso

Message:

DECLAIM: recognize SPECIAL declarations.

File:

• trunk/j/src/org/armedbear/lisp/fixme.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/fixme.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: fixme.lisp,v 1.9 2003-10-15 15:27:15 piso Exp $
+;;; $Id: fixme.lisp,v 1.10 2003-10-19 18:58:56 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -28 +28 @@
   nil)
 
-(defmacro declaim (&rest ignored)
-  nil)
+(defmacro declaim (&rest decls)
+  (let ((res ()))
+    (dolist (decl decls)
+      (when (eq (car decl) 'special)
+        (dolist (var (cdr decl))
+          (push `(defvar ,var) res))))
+    (when res
+      `(progn ,@(nreverse res)))))
 
 ;; Should be a special operator.