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

DEFUN was still missing from the functions where REGISTER-WITH-PDE is used

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-07-12 19:11:44 +02:00
parent 2f8778a245
commit d2a9486aa6
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/config.lsp.in
View file

@ -46,7 +46,7 @@ Returns, as a string, the location of the machine on which ECL runs."
(defun lisp-implementation-version ()
"Args:()
Returns the version of your ECL as a string."
"@PACKAGE_VERSION@ (CVS 2008-06-19 17:09)")
"@PACKAGE_VERSION@ (CVS 2008-07-12 18:54)")
(defun machine-type ()
"Args: ()

4
src/lsp/evalmacros.lsp
View file

@ -12,7 +12,7 @@
(in-package "SYSTEM")
(defmacro defun (name vl &body body &aux doc-string)
(defmacro defun (&whole whole name vl &body body &aux doc-string)
"Syntax: (defun name lambda-list {decl | doc}* {form}*)
Defines a global function named by NAME.
The complete syntax of a lambda-list is:
@ -36,7 +36,7 @@ retrieved by (documentation 'NAME 'function)."
(eval-when (:execute)
(si::fset ',name ,function))
(eval-when (:load-toplevel)
(si::fset ',name ,global-function))
,(ext:register-with-pde whole `(si::fset ',name ,global-function)))
,@(si::expand-set-documentation name 'function doc-string)
',name)))