/[cmucl]/src/pcl/dlisp.lisp
ViewVC logotype

Diff of /src/pcl/dlisp.lisp

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

revision 1.1 by ram, Mon Nov 9 15:19:11 1992 UTC revision 1.2 by phg, Tue Jan 12 18:24:29 1993 UTC
# Line 25  Line 25 
25  ;;; *************************************************************************  ;;; *************************************************************************
26  ;;;  ;;;
27    
28  (in-package 'pcl)  (in-package :pcl)
29    
30  ;;; This file is (almost) functionally equivalent to dlap.lisp,  ;;; This file is (almost) functionally equivalent to dlap.lisp,
31  ;;; but easier to read.  ;;; but easier to read.
# Line 105  Line 105 
105                      ,@(when (member 'miss-fn closure-variables)                      ,@(when (member 'miss-fn closure-variables)
106                          `((declare (type function miss-fn))))                          `((declare (type function miss-fn))))
107                      #'(lambda ,args                      #'(lambda ,args
108                            #+copy-&rest-arg
109                            ,@(when rest
110                                `((setq .lap-rest-arg.
111                                        (copy-list .lap-rest-arg.))))
112                          (let ()                          (let ()
113                            (declare #.*optimize-speed*)                            (declare #.*optimize-speed*)
114                            ,form)))))                            ,form)))))
# Line 116  Line 120 
120  (defun emit-reader/writer (reader/writer 1-or-2-class class-slot-p)  (defun emit-reader/writer (reader/writer 1-or-2-class class-slot-p)
121    (when (and (null *precompiling-lap*) *emit-function-p*)    (when (and (null *precompiling-lap*) *emit-function-p*)
122      (return-from emit-reader/writer      (return-from emit-reader/writer
123        (emit-reader/writer-function reader/writer 1-or-2-class class-slot-p)))        (emit-reader/writer-function reader/writer 1-or-2-class class-slot-p)))
124    (let ((instance nil)    (let ((instance nil)
125          (arglist  ())          (arglist  ())
126          (closure-variables ())          (closure-variables ())

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5