allow frame-vars to take default parameters

vii · Mar 11, 2010 · 357332e · 357332e
1 parent 0bc2c98
commit 357332e
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/src/webapp/frame.lisp b/src/webapp/frame.lisp
@@ -36,16 +36,17 @@
     (setf *webapp-frame* (apply 'make-frame args-for-make-frame)))
   *webapp-frame*)
 
-(my-defun frame var (id)
-  (getf (my variables) id))
+(my-defun frame var (id &optional default)
+  (getf (my variables) id default))
 
 (my-defun frame (setf var) (val id)
   (setf (getf (my variables) id) val))
 
-(defun webapp-frame-var (id)
-  (frame-var (webapp-frame) id))
+(defun webapp-frame-var (id &optional default)
+  (frame-var (webapp-frame) id default))
 
-(defun (setf webapp-frame-var) (val id)
+(defun (setf webapp-frame-var) (val id &optional default)
+  (declare (ignore default))
   (setf (frame-var (webapp-frame) id) val))
 
 (defun list-all-frames ()