Newer
Older
;; -[Thu Nov 10 02:16:15 1994 by smh]-
;;
;; copyright (c) 1985, 1986 Franz Inc, Alameda, CA All rights reserved.
;; copyright (c) 1986-1991 Franz Inc, Berkeley, CA All rights reserved.
;;
;; The software, data and information contained herein are proprietary
;; to, and comprise valuable trade secrets of, Franz, Inc. They are
;; given in confidence by Franz, Inc. pursuant to a written license
;; agreement, and may be stored and used only in accordance with the terms
;; of such license.
;;
;; Restricted Rights Legend
;; ------------------------
;; Use, duplication, and disclosure of the software, data and information
;; contained herein by any agency, department or entity of the U.S.
;; Government are subject to restrictions of Restricted Rights for
;; Commercial Software developed at private expense as specified in FAR
;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as
;; applicable.
;;
;; $fiHeader: compile-1.lisp,v 1.23 1993/05/25 20:41:40 cer Exp $
;; Forgive them, lord, for they know not what they do.
(pushnew :ansi-90 *features*)
#+ignore
(progn
(compile-file "~/stuff/misc/new-slot-opt.cl")
(load "~/stuff/misc/new-slot-opt.fasl")
)
#+ignore
(progn
(setf (sys:gsgc-switch :print) t)
(setf (sys:gsgc-switch :stats) t))
(named-function |(> debug 1)|
(lambda (safety size speed debug)
(declare (ignore safety size speed))
(> debug 1))))
(setq comp:declared-fixnums-remain-fixnums-switch
(named-function |(> speed 2)|
(lambda (safety size speed debug)
(declare (ignore safety size debug))
(> speed 2))))
;(unless (find-package 'clim-defsystem)
; (compile-file-if-needed "sys/defsystem")
; (let ((*enable-package-locked-errors* nil))
; (load "sys/defsystem")))
(let ((excl::*update-entry-points* nil))
(unless (ignore-errors (excl:find-system 'sys))
(load "clim2:;sys;sysdcl"))
(excl:compile-system sys :include-components t)
(excl:load-system sys))
(load "clim2:;postscript;sysdcl")
(excl:compile-system 'postscript-clim :include-components t)
(excl:load-system 'postscript-clim)
(compile-file-if-needed "clim2:;test;test-suite")
(load "clim2:;test;test-suite")
(load "clim2:;demo;sysdcl")
(excl:compile-system 'clim-demo :include-components t)
(excl:load-system 'clim-demo)
(load "clim2:;test;testdcl")
(tenuring
(excl:compile-system 'testing)
(excl:load-system 'testing)))
(when (probe-file "clim2:;climtoys;sysdcl.lisp")
(load "clim2:;climtoys;sysdcl.lisp")
(excl:compile-system 'clim-toys))
#+ignore (load "compatibility/sysdcl.lisp")
#+ignore (excl:compile-system 'clim-compatibility :include-components t)
(load "clim2:;hpgl;sysdcl")
(excl:compile-system 'hpgl-clim :include-components t)
(excl:load-system 'hpgl-clim)