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

Diff of /src/code/scavhook.lisp

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

revision 1.3 by ram, Mon Oct 31 04:11:27 1994 UTC revision 1.3.2.1 by pw, Tue Jun 23 11:22:26 1998 UTC
# Line 19  Line 19 
19  (export '(scavenger-hook scavenger-hook-p make-scavenger-hook  (export '(scavenger-hook scavenger-hook-p make-scavenger-hook
20            scavenger-hook-value scavenger-hook-function))            scavenger-hook-value scavenger-hook-function))
21    
22  #+gengc  #+(or gengc gencgc)
23  (progn  (progn
24    
25  (defun scavenger-hook-p (object)  (defun scavenger-hook-p (object)
# Line 56  Line 56 
56    
57  ); #+gengc progn  ); #+gengc progn
58    
59  #-gengc  #-(or gengc gencgc)
60  (progn  (progn
61    
62  (defstruct (scavhook  (defstruct (scavhook

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.2.1

  ViewVC Help
Powered by ViewVC 1.1.5