/[cmucl]/src/tools/setup.lisp
ViewVC logotype

Diff of /src/tools/setup.lisp

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

revision 1.31 by pw, Thu Mar 15 18:01:39 2001 UTC revision 1.32 by emarsden, Tue May 13 15:22:48 2003 UTC
# Line 15  Line 15 
15  (in-package "KERNEL")  (in-package "KERNEL")
16  (defparameter *ansi-defstruct-options-p* nil)  (defparameter *ansi-defstruct-options-p* nil)
17    
18    
19    ;; Disable package locks while rebuilding CMUCL. This variable is
20    ;; enabled upon startup from the function PACKAGE-LOCKS-INIT.
21    (in-package "LISP")
22    (defparameter *enable-package-locked-errors* nil)
23    
24    
25  (in-package "USER")  (in-package "USER")
26    
27    
28    ;; these forward declarations are only intended to avoid compiler
29    ;; warnings about undefined functions when building CMUCL.
30    (proclaim '(ftype (function * *)
31                c::assemble-file
32                pcl::class-direct-subclasses
33                pcl::class-direct-superclasses
34                pcl::specializer-direct-methods
35                pcl::class-slots
36                pcl::slot-boundp-using-class
37                pcl::slot-definition-name
38                pcl::slot-value-using-class
39                debug::all-method-functions-in-package
40                profile::reinitialize-method-function
41                cl::make-instance
42                cl::class-of
43                cl::sxhash-instance
44                hemlock::ts-stream-p
45                hemlock::ts-stream-wire
46                ext::call-display-event-handler
47                ext::disable-clx-event-handling
48                ext::flush-display-events
49                xlib::display-input-stream
50                xlib::event-listen))
51    
52    
53    
54  ;;; DUMP-PACKAGE-STATE  --  Public  ;;; DUMP-PACKAGE-STATE  --  Public
55  ;;;  ;;;
# Line 264  Line 296 
296                            :error t))                            :error t))
297              (t              (t
298               (format t "~S up to date.~%" (namestring output-file)))))))               (format t "~S up to date.~%" (namestring output-file)))))))
299    

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

  ViewVC Help
Powered by ViewVC 1.1.5