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

Diff of /src/pcl/pkg.lisp

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

revision 1.15 by dtc, Sun Dec 20 04:30:22 1998 UTC revision 1.16 by pw, Sun May 30 23:14:05 1999 UTC
# Line 24  Line 24 
24  ;;; Suggestions, comments and requests for improvements are also welcome.  ;;; Suggestions, comments and requests for improvements are also welcome.
25  ;;; *************************************************************************  ;;; *************************************************************************
26  ;;;  ;;;
27  #+cmu  
28  (ext:file-comment  (ext:file-comment
29    "$Header$")    "$Header$")
30  ;;;  ;;;
# Line 55  Line 55 
55             "*ITERATE-WARNINGS*"))             "*ITERATE-WARNINGS*"))
56    
57  (defpackage "PCL" (:use :common-lisp :walker :iterate)  (defpackage "PCL" (:use :common-lisp :walker :iterate)
   #+CMU  
58    (:shadow "DESTRUCTURING-BIND")    (:shadow "DESTRUCTURING-BIND")
   #+cmu17  
59    (:shadow "FIND-CLASS" "CLASS-NAME" "CLASS-OF"    (:shadow "FIND-CLASS" "CLASS-NAME" "CLASS-OF"
60             "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS"             "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS"
61             "STANDARD-CLASS")             "STANDARD-CLASS")
   
   #+cmu  
62    (:shadow "DOTIMES")    (:shadow "DOTIMES")
   
   #+cmu  
63    (:import-from :kernel "FUNCALLABLE-INSTANCE-P")    (:import-from :kernel "FUNCALLABLE-INSTANCE-P")
   
64    (:shadow "DOCUMENTATION")    (:shadow "DOCUMENTATION")
65    
66    
# Line 115  Line 108 
108             "SLOT-UNBOUND"             "SLOT-UNBOUND"
109             "SLOT-VALUE"             "SLOT-VALUE"
110             "STANDARD"             "STANDARD"
            #-CMU17 "STANDARD-CLASS"  
111             "STANDARD-GENERIC-FUNCTION"             "STANDARD-GENERIC-FUNCTION"
112             "STANDARD-METHOD"             "STANDARD-METHOD"
113             "STANDARD-OBJECT"             "STANDARD-OBJECT"
            #-CMU17 "STRUCTURE-CLASS"  
            #-CMU17 "SYMBOL-MACROLET"  
114             "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS"             "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS"
115             "UPDATE-INSTANCE-FOR-REDEFINED-CLASS"             "UPDATE-INSTANCE-FOR-REDEFINED-CLASS"
116             "WITH-ACCESSORS"             "WITH-ACCESSORS"
# Line 146  Line 136 
136             "STANDARD-EFFECTIVE-SLOT-DEFINITION"             "STANDARD-EFFECTIVE-SLOT-DEFINITION"
137             "SPECIALIZER"             "SPECIALIZER"
138             "EQL-SPECIALIZER"             "EQL-SPECIALIZER"
            #-CMU17 "BUILT-IN-CLASS"  
139             "FORWARD-REFERENCED-CLASS"             "FORWARD-REFERENCED-CLASS"
            #-CMU17 "STANDARD-CLASS"  
140             "FUNCALLABLE-STANDARD-CLASS"             "FUNCALLABLE-STANDARD-CLASS"
141             "FUNCALLABLE-STANDARD-OBJECT")             "FUNCALLABLE-STANDARD-OBJECT")
142    

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

  ViewVC Help
Powered by ViewVC 1.1.5