/[mcclim]/mcclim/output.lisp
ViewVC logotype

Diff of /mcclim/output.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by moore, Sun Apr 21 18:46:26 2002 UTC revision 1.7 by adejneka, Thu Jun 13 05:03:09 2002 UTC
# Line 73  Line 73 
73    (engraft-medium (sheet-medium sheet) (port sheet) sheet))    (engraft-medium (sheet-medium sheet) (port sheet) sheet))
74    
75  (defmacro with-sheet-medium ((medium sheet) &body body)  (defmacro with-sheet-medium ((medium sheet) &body body)
76      (check-type medium symbol)
77    (let ((fn (gensym)))    (let ((fn (gensym)))
78      `(labels ((,fn (,medium)      `(labels ((,fn (,medium)
79                    (declare (ignorable ,medium))
80                 ,@body))                 ,@body))
81        (declare (dynamic-extent #',fn))        (declare (dynamic-extent #',fn))
82        (invoke-with-sheet-medium-bound #',fn nil ,sheet))))        (invoke-with-sheet-medium-bound #',fn nil ,sheet))))
83    
84  (defmacro with-sheet-medium-bound ((sheet medium) &body body)  (defmacro with-sheet-medium-bound ((sheet medium) &body body)
85      (check-type medium symbol)
86    (let ((fn (gensym)))    (let ((fn (gensym)))
87      `(labels ((,fn  (,medium)      `(labels ((,fn  (,medium)
88                    (declare (ignorable ,medium))
89                 ,@body))                 ,@body))
90        (declare (dynamic-extent #',fn))        (declare (dynamic-extent #',fn))
91        (invoke-with-sheet-medium-bound #',fn ,medium ,sheet))))        (invoke-with-sheet-medium-bound #',fn ,medium ,sheet))))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.5