mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

Missing arguments to several warnings (S. Bourakev).

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-01-25 09:09:10 +01:00
parent 4e35a718e5
commit 65c1dbb06f
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
contrib/bytecmp/bytecmp.lsp
View file

@ -32,7 +32,8 @@
(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 failed")
(warn "We have lost the original function definition for ~s. Compilation failed"
name)
(return-from compile (values def t nil)))
(t
(setq form `(setf (symbol-function ',name) #',form))))