mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-02 07:30:55 -08:00
23 lines
616 B
Common Lisp
23 lines
616 B
Common Lisp
|
|
(in-package 'compiler)
|
|
|
|
;;; The production version:
|
|
(proclaim '(optimize (safety 0) (space 3) (speed 3)))
|
|
|
|
(when (member :clos *features*)
|
|
(push :ansi *features*))
|
|
|
|
;#-CLOS
|
|
(defmacro setf-namep (setf-list)
|
|
`(let (setf-symbol)
|
|
(and (consp ,setf-list)
|
|
(= 2 (length ,setf-list))
|
|
(eq (car ,setf-list) 'setf)
|
|
(setq setf-symbol (get (second ,setf-list) 'sys::setf-symbol))
|
|
(symbolp setf-symbol)
|
|
setf-symbol)))
|
|
|
|
;;; Disable PDE facilities within LISP kernel:
|
|
(setq *features* (delete ':pde *features*))
|
|
;;; Disable record-source-pathname within LISP kernel:
|
|
(defmacro record-source-pathname (x y))
|