Changeset 4461


Ignore:
Timestamp:
10/19/03 18:58:56 (18 years ago)
Author:
piso
Message:

DECLAIM: recognize SPECIAL declarations.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/fixme.lisp

    r4387 r4461  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: fixme.lisp,v 1.9 2003-10-15 15:27:15 piso Exp $
     4;;; $Id: fixme.lisp,v 1.10 2003-10-19 18:58:56 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2828  nil)
    2929
    30 (defmacro declaim (&rest ignored)
    31   nil)
     30(defmacro declaim (&rest decls)
     31  (let ((res ()))
     32    (dolist (decl decls)
     33      (when (eq (car decl) 'special)
     34        (dolist (var (cdr decl))
     35          (push `(defvar ,var) res))))
     36    (when res
     37      `(progn ,@(nreverse res)))))
    3238
    3339;; Should be a special operator.
Note: See TracChangeset for help on using the changeset viewer.