mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-21 09:10:41 -07:00
Code Issues Projects Releases Packages Wiki Activity

COMPILE now accepts generic functions, although does little useful things with them

Browse source
This commit is contained in:
jjgarcia 2005-05-20 15:03:23 +00:00
parent 21a2ebcfc0
commit 0e2b9f2a02
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/cmp/cmpmain.lsp
View file

@ -553,11 +553,16 @@ Cannot compile ~a."
(setq form (if name
`(setf (symbol-function ',name) #',def)
`(set 'GAZONK #',def))))
((and (fboundp name)
(setq def (symbol-function name))
(setq form (function-lambda-expression def)))
(setq form `(setf (symbol-function ',name) #',form)))
(t (error "No lambda expression is assigned to the symbol ~s." name)))
((not (fboundp name))
(error "Symbol ~s is unbound." name))
((typep (setf def (symbol-function name)) 'standard-generic-function)
(warn "COMPILE can not compile generic functions yet")
(return-from compile (values def t nil)))
((null (setq form (function-lambda-expression def)))
(warn "We have lost the original function definition for ~s. Compilation to C failed")
(return-from compile (values def t nil)))
(t
(setq form `(setf (symbol-function ',name) #',form))))
(let ((template (format nil "TMP:ECL~3,'0x" (incf *gazonk-counter*))))
(unless (setq data-pathname (si::mkstemp template))