mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 05:12:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

Add patches that were missing

Browse source
This commit is contained in:
jjgarcia 2008-09-04 20:50:17 +00:00
parent 34c9129329
commit f40e78e063
2 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/c/read.d
View file

@ -1383,8 +1383,15 @@ ecl_current_read_default_float_format(void)
x = SYM_VAL(@'*read-default-float-format*');
if (x == @'single-float' || x == @'short-float')
return 'F';
if (x == @'double-float' || x == @'long-float')
if (x == @'double-float')
return 'D';
if (x == @'long-float') {
#ifdef ECL_LONG_FLOAT
return 'L';
#else
return 'D';
#endif
}
ECL_SETQ(@'*read-default-float-format*', @'single-float');
FEerror("The value of *READ-DEFAULT-FLOAT-FORMAT*, ~S, was illegal.",
1, x);

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)))