(in-package "COMMON-LISP-USER") ;;; ;;; This should be the same as env.lisp, but for lisp running with ;;; kernel.core. That means: ;;; - no reader macros #- #+ #|...|# #'(lambda ;;; - no (if ...), defun etc., they needs to be compiled, but the compiler ;;; isn't there. ;;; ;;; assuming we start from src/lisp/ (setf (ext:search-list "crabuild:") '("../../crabuild/")) (setf (ext:search-list "trunk:") '("../../")) (setf (ext:search-list "target:") '("trunk:src/")) (setf (ext:search-list "src:") '("crabuild:" "trunk:src/")) (setf ext:*gc-verbose* nil) (pushnew :i486 *features*) (pushnew :gencgc *features*) (pushnew :mp *features*) (pushnew :random-mt19937 *features*) (pushnew :hash-new *features*) (pushnew :linkage-table *features*) (setf *features* (remove :cmu17 *features*)) (setf *features* (remove :cmu18c *features*)) (setf *features* (remove :cmu18d *features*)) (pushnew :cmu18 *features*) ; we resemble CMUCL 18 (pushnew :cmu19 *features*) ; we resemble CMUCL 19 ;; speed (pushnew :propagate-fun-type *features*) (pushnew :propagate-float-type *features*) (pushnew :constrain-float-type *features*) ;;; I usually don't use this. ;(pushnew :small *features*) ;;; Automatically added things to follow when ./buildenv runs