/[cmucl]/src/hemlock/macros.lisp
ViewVC logotype

Diff of /src/hemlock/macros.lisp

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

revision 1.8 by pw, Tue Mar 13 15:49:56 2001 UTC revision 1.8.2.2 by rtoy, Sat May 22 12:25:15 2004 UTC
# Line 194  Line 194 
194  ;;;    Used for various macros to get the declarations out of a list of  ;;;    Used for various macros to get the declarations out of a list of
195  ;;; forms.  ;;; forms.
196  ;;;  ;;;
197  (eval-when (compile load eval)  (eval-when (:compile-toplevel :load-toplevel :execute)
198  (defmacro parse-forms ((decls-var forms-var forms) &body gorms)  (defmacro parse-forms ((decls-var forms-var forms) &body gorms)
199    "Parse-Forms (Decls-Var Forms-Var Forms) {Form}*    "Parse-Forms (Decls-Var Forms-Var Forms) {Form}*
200    Binds Decls-Var to leading declarations off of Forms and Forms-Var    Binds Decls-Var to leading declarations off of Forms and Forms-Var
# Line 205  Line 205 
205              (not (eq (caar ,forms-var) 'declare)))              (not (eq (caar ,forms-var) 'declare)))
206          ,@gorms)          ,@gorms)
207       (push (car ,forms-var) ,decls-var)))       (push (car ,forms-var) ,decls-var)))
 )  
   
208    
209    
210  ;;;; WITH-MARK and USE-BUFFER.  ;;;; WITH-MARK and USE-BUFFER.
# Line 236  Line 234 
234              (t              (t
235               (push `(,name (copy-mark ,pos :temporary)) let-slots))))))               (push `(,name (copy-mark ,pos :temporary)) let-slots))))))
236    
237    )
238    
239  #|SAve this shit in case we want WITH-MARKto no longer cons marks.  #|SAve this shit in case we want WITH-MARKto no longer cons marks.
240  (defconstant with-mark-total 50)  (defconstant with-mark-total 50)
241  (defvar *with-mark-free-marks* (make-array with-mark-total))  (defvar *with-mark-free-marks* (make-array with-mark-total))
# Line 521  Line 521 
521    
522    
523  (defmacro with-pop-up-display ((var &key height (buffer-name "Random Typeout"))  (defmacro with-pop-up-display ((var &key height (buffer-name "Random Typeout"))
524                                 &body (body decls))                                 &parse-body (body decls))
525    "Execute body in a context with var bound to a stream.  Output to the stream    "Execute body in a context with var bound to a stream.  Output to the stream
526     appears in the buffer named buffer-name.  The pop-up display appears after     appears in the buffer named buffer-name.  The pop-up display appears after
527     the body completes, but if you supply :height, the output is line buffered,     the body completes, but if you supply :height, the output is line buffered,

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.8.2.2

  ViewVC Help
Powered by ViewVC 1.1.5