/[cmucl]/src/code/backq.lisp
ViewVC logotype

Diff of /src/code/backq.lisp

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

revision 1.5 by ram, Tue Mar 10 13:09:20 1992 UTC revision 1.6 by ram, Fri Aug 14 01:34:40 1992 UTC
# Line 178  Line 178 
178  ;;; Use synonyms for the lisp functions we use, so we can recognize backquoted  ;;; Use synonyms for the lisp functions we use, so we can recognize backquoted
179  ;;; material when pretty-printing  ;;; material when pretty-printing
180    
 (declaim (inline backq-list backq-list* backq-append backq-nconc backq-cons  
                  backq-vector))  
   
181  (defun backq-list (&rest args)  (defun backq-list (&rest args)
182    args)    args)
183  (defun backq-list* (&rest args)  (defun backq-list* (&rest args)
# Line 191  Line 188 
188    (apply #'nconc args))    (apply #'nconc args))
189  (defun backq-cons (x y)  (defun backq-cons (x y)
190    (cons x y))    (cons x y))
191    
192    (macrolet ((frob (b-name name)
193                 `(define-compiler-macro ,b-name (&rest args)
194                    `(,',name ,@args))))
195      (frob backq-list list)
196      (frob backq-list* list*)
197      (frob backq-append append)
198      (frob backq-nconc nconc)
199      (frob backq-cons cons))
200    
201  (defun backq-vector (list)  (defun backq-vector (list)
202    (coerce list 'vector))    (declare (list list))
203      (coerce list 'simple-vector))
204    
205    
206  ;;;; Unparsing  ;;;; Unparsing

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

  ViewVC Help
Powered by ViewVC 1.1.5