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

Diff of /src/compiler/macros.lisp

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

revision 1.31 by wlott, Sun Jun 14 07:41:22 1992 UTC revision 1.32 by ram, Mon Sep 7 16:04:55 1992 UTC
# Line 15  Line 15 
15  ;;;  ;;;
16  ;;; Written by Rob MacLachlan  ;;; Written by Rob MacLachlan
17  ;;;  ;;;
18  (in-package 'c)  (in-package "C")
19    
20  (export '(lisp::with-compilation-unit) "LISP")  (export '(lisp::with-compilation-unit) "LISP")
21    
# Line 758  Line 758 
758    `(let ((*free-variables* (make-hash-table :test #'eq))    `(let ((*free-variables* (make-hash-table :test #'eq))
759           (*free-functions* (make-hash-table :test #'equal))           (*free-functions* (make-hash-table :test #'equal))
760           (*constants* (make-hash-table :test #'equal))           (*constants* (make-hash-table :test #'equal))
761           (*source-paths* (make-hash-table :test #'eq))           (*source-paths* (make-hash-table :test #'eq)))
          (*failed-optimizations* (make-hash-table :test #'eq)))  
762       ,@forms))       ,@forms))
763    
764    

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

  ViewVC Help
Powered by ViewVC 1.1.5