mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-17 06:42:18 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo in LOC-IMMEDIATE-VALUE-P which prevented ECL from identifying the constant values of numeric expressions.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-01-21 20:44:10 +01:00
parent 001873409f
commit ce19c67a1b
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/cmp/cmploc.lsp
View file

@ -98,7 +98,7 @@
(and (eq (car loc) 'C-INLINE)
(eq (sixth loc) 'VALUES)))))
(defun loc-immediate-value-p (loc &aux head)
(defun loc-immediate-value-p (loc)
(cond ((eq loc t)
(values t t))
((eq loc nil)
@ -112,9 +112,9 @@
(values t value))))
((atom loc)
(values nil nil))
((member head '(fixnum-value character-value long-float-value
double-float-value single-float-value))
((member (first loc)
'(fixnum-value character-value long-float-value
double-float-value single-float-value))
(values t (second loc)))
(t
(values nil nil))))
@ -123,7 +123,7 @@
(baboon :format-control "Unknown location found in ~A~%~S"
:format-arguments (list where loc)))
(defun wt-loc (loc &aux fd)
(defun wt-loc (loc)
(cond ((consp loc)
(let ((fd (gethash (car loc) *wt-loc-dispatch-table*)))
(if fd