Added ECL feature expressions.

This commit is contained in:
Gerd Heber 2015-07-17 06:16:07 -05:00
parent 277eb3f980
commit 5d3b7815eb
2 changed files with 4 additions and 4 deletions

View File

@ -160,5 +160,5 @@
(format t "~%~%Hence, pi_5(Moore(Z/2Z)) is Z/4Z. QED~%") (format t "~%~%Hence, pi_5(Moore(Z/2Z)) is Z/4Z. QED~%")
#+ccl (quit) #+(or ccl ecl) (quit)
#+sbcl (sb-ext:exit) #+sbcl (sb-ext:exit)

View File

@ -61,14 +61,14 @@
(DEFCONSTANT +SOURCE-EXTENSION+ (DEFCONSTANT +SOURCE-EXTENSION+
#+(or allegro clisp lispworks) "cl" #+(or allegro clisp lispworks) "cl"
#+(or ccl sbcl) "lisp" #+(or ccl ecl sbcl) "lisp"
#-(or allegro ccl clisp lispworks sbcl) #-(or allegro ccl clisp ecl lispworks sbcl)
(error "Not an Allegro or CCL or CLisp or LispWorks or SBCL environment.")) (error "Not an Allegro or CCL or CLisp or LispWorks or SBCL environment."))
(DEFCONSTANT +COMPILED-EXTENSION+ (DEFCONSTANT +COMPILED-EXTENSION+
#+(or allegro sbcl) "fasl" #+(or allegro sbcl) "fasl"
#+ccl "lafsl" #+ccl "lafsl"
#+clisp "fas" #+ (or clisp ecl) "fas"
#+lispworks "ofasl") #+lispworks "ofasl")
(DEFUN LOAD-SFILES () (DEFUN LOAD-SFILES ()