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

New auxiliary value LOC-IMMEDIATE-VALUE

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-07-27 23:34:38 +02:00
parent 7c434a97f3
commit 0e07bf1df5
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/cmploc.lsp
View file

@ -119,6 +119,9 @@
(t
(values nil nil))))
(defun loc-immediate-value (loc)
(nth-value 1 (loc-immediate-value-p loc)))
(defun unknown-location (where loc)
(baboon :format-control "Unknown location found in ~A~%~S"
:format-arguments (list where loc)))