/[gcl]/gcl/clcs/loading.lisp
ViewVC logotype

Diff of /gcl/clcs/loading.lisp

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

revision 1.2 by camm, Wed Oct 9 03:46:33 2002 UTC revision 1.3 by camm, Wed Feb 26 22:21:34 2003 UTC
# Line 1  Line 1 
1  (defun jamie-load-clcs (&optional (mode :compiled))  (defun jamie-load-clcs (&optional (mode :compiled))
2    (let ((files (list    (let ((files (list
3                  ;"package"                  ;"package"
4                  "precom"                  "clcs_precom"
5                  "macros"                  "clcs_macros"
6                  "restart"                  "clcs_restart"
7                  "handler"                  "clcs_handler"
8                  "debugger"                  "clcs_debugger"
9                  "conditions"                  "clcs_conditions"
10                  "condition-definitions"                  "clcs_condition_definitions"
11                  "kcl-cond"                  "clcs_kcl_cond"
12                  "top-patches"                  "clcs_top_patches"
13                  "install")))                  "clcs_install")))
14  ;     (load "package.lisp")  ;     (load "package.lisp")
15      (when (eql :compile mode)      (when (eql :compile mode)
16  ;         (load "package.lisp")  ;         (load "package.lisp")
17            (load "precom.lisp"))            (load "clcs_precom.lisp"))
18      (mapc #'(lambda (file)      (mapc #'(lambda (file)
19                (ecase mode                (ecase mode
20                       (:interpreted (load (format nil "~A.lisp" file)))                       (:interpreted (load (format nil "~A.lisp" file)))
21                       (:compiled (load (format nil "~A.o" file)))                       (:compiled (load (format nil "~A.o" file)))
22                       (:compile (compile-file (format nil "~A.lisp" file)))))                       (:compile (compile-file (format nil "~A.lisp" file) :c-file t :h-file t :data-file t :system-p t))))
23            files)))            files)))
24    
25    

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

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26