[movitz-cvs] CVS update: movitz/movitz.lisp

[Frode Vatvedt Fjeld]

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)