Changeset 4461
- Timestamp:
- 10/19/03 18:58:56 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/fixme.lisp
r4387 r4461 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: fixme.lisp,v 1. 9 2003-10-15 15:27:15piso Exp $4 ;;; $Id: fixme.lisp,v 1.10 2003-10-19 18:58:56 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 28 28 nil) 29 29 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))))) 32 38 33 39 ;; Should be a special operator.
Note: See TracChangeset
for help on using the changeset viewer.