/[gcl]/gcl/cmpnew/gcl_cmplet.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmplet.lsp

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

revision 1.14 by camm, Fri Jul 8 06:02:47 2005 UTC revision 1.15 by camm, Sat Jul 23 08:48:18 2005 UTC
# Line 37  Line 37 
37                    *funs*)))                    *funs*)))
38    
39  (defun cmp-macroexp-with-compiler-macros (form)  (defun cmp-macroexp-with-compiler-macros (form)
40    (let ((form (cmp-macroexpand form)))    (let ((form (if (and (consp form) (eq (car form) 'or)) form (cmp-macroexpand form))))
41      (if (and (consp form) (symbolp (car form)))      (if (and (consp form) (symbolp (car form)))
42          (let ((cmf (get (car form) 'compiler-macro)))          (let ((cmf (get (car form) 'compiler-macro)))
43            (if cmf            (if cmf

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26