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

LOC-IMMEDIATE-VALUE-P did not return the appropriate value for character locations

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-01 22:56:23 +01:00
parent c724eacb24
commit e2fbe37fcd
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmploc.lsp
View file

@ -113,9 +113,11 @@
((atom loc)
(values nil nil))
((member (first loc)
'(fixnum-value character-value long-float-value
'(fixnum-value long-float-value
double-float-value single-float-value))
(values t (second loc)))
((eq (first loc) 'character-value)
(values t (code-char (second loc))))
(t
(values nil nil))))