Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv26376 Modified Files: movitz.lisp Log Message: Don't use () in macro lambda-list. Date: Fri Jan 16 07:02:06 2004 Author: ffjeld Index: movitz/movitz.lisp diff -u movitz/movitz.lisp:1.2 movitz/movitz.lisp:1.3 --- movitz/movitz.lisp:1.2 Thu Jan 15 13:59:38 2004 +++ movitz/movitz.lisp Fri Jan 16 07:02:05 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 20012000, 2002-2004, -;;;; Department of Computer Science, University of Tromsø, Norway +;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: movitz.lisp ;;;; Description: @@ -9,7 +9,7 @@ ;;;; Created at: Mon Oct 9 20:52:58 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: movitz.lisp,v 1.2 2004/01/15 18:59:38 ffjeld Exp $ +;;;; $Id: movitz.lisp,v 1.3 2004/01/16 12:02:05 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -30,7 +30,8 @@ (defvar *default-image-init-file* #p"losp/los0.lisp") (defvar *default-image-file* #p"los0-image") -(defmacro with-movitz-syntax (() &body body) +(defmacro with-movitz-syntax (options &body body) + (declare (ignore options)) `(let ((*readtable* (copy-readtable))) (set-dispatch-macro-character #\# #\' (lambda (stream subchar arg)