/[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.41 by ram, Mon Oct 31 04:27:28 1994 UTC revision 1.41.2.1 by pw, Tue May 23 16:37:19 2000 UTC
# Line 25  Line 25 
25    
26  (proclaim '(special *wild-type* *universal-type* *compiler-error-context*))  (proclaim '(special *wild-type* *universal-type* *compiler-error-context*))
27    
 (declaim (ftype function (setf dylan::value-datum) dylan::find-module  
                 dylan::lookup-varinfo-value  
                 dylan::parse-and-convert dylan::value-datum))  
   
28  ;;;; Deftypes:  ;;;; Deftypes:
29    
30  ;;;  ;;;
 ;;; Should be standard:  
 (deftype boolean () '(member t nil))  
   
 ;;;  
31  ;;; Inlinep is used to determine how a function is called.  The values have  ;;; Inlinep is used to determine how a function is called.  The values have
32  ;;; these meanings:  ;;; these meanings:
33  ;;;        Nil  No declaration seen: do whatever you feel like, but don't dump  ;;;        Nil  No declaration seen: do whatever you feel like, but don't dump
# Line 746  Line 738 
738           (values nil nil))))           (values nil nil))))
739    
740    
741    
742    ;;; With-debug-counters  --  Interface
743    ;;;
744    ;;;    Bind the hashtables and counters used for keeping track of
745    ;;; continuation, TN, and label IDs for the debug dumping routines.
746    ;;;
747    (defmacro with-debug-counters (&body forms)
748      `(let ((*continuation-numbers* (make-hash-table :test #'eq))
749             (*number-continuations* (make-hash-table :test #'eql))
750             (*continuation-number* 0)
751             (*tn-ids* (make-hash-table :test #'eq))
752             (*id-tns* (make-hash-table :test #'eql))
753             (*tn-id* 0)
754             (*id-labels* (make-hash-table :test #'eq))
755             (*label-ids* (make-hash-table :test #'eql))
756             (*label-id* 0))
757         ,@forms))
758    
759    
760  ;;;; The Defprinter macro:  ;;;; The Defprinter macro:
761    
762  (defvar *defprint-pretty* nil  (defvar *defprint-pretty* nil

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.41.2.1

  ViewVC Help
Powered by ViewVC 1.1.5