/[gcl]/gcl/lsp/gcl_cmpinit.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_cmpinit.lsp

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

revision 1.1.2.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.1.2.2 by camm, Tue Sep 23 18:32:43 2003 UTC
# Line 1  Line 1 
1  (proclaim '(optimize (safety 2) (space 3)))  ;(proclaim '(optimize (safety 2) (space 3)))
2    
3  (setq compiler::*eval-when-defaults* '(compile eval load))  (setq compiler::*eval-when-defaults* '(compile eval load))
4  (or (fboundp 'si::get-&environment) (load "defmacro.lsp"))  (or (fboundp 'si::get-&environment) (load "gcl_defmacro.lsp"))
5  ;(or (get 'si::s-data 'si::s-data)  ;(or (get 'si::s-data 'si::s-data)
6  ;    (progn (load "../lsp/setf.lsp") (load "../lsp/defstruct.lsp")))  ;    (progn (load "../lsp/setf.lsp") (load "../lsp/defstruct.lsp")))
7  (if (probe-file "sys-proclaim.lisp")(load "sys-proclaim.lisp"))  (if (probe-file "sys-proclaim.lisp")(load "sys-proclaim.lisp"))

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

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