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

cmp: fix typo

Browse source 
Introduced by the refactor in commit 2304da9a83.
This commit is contained in:
Marius Gerbershagen 2024-03-16 19:59:23 +01:00
parent dc286efb66
commit 3c75b5b4d8
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/cmp/cmpbackend-cxx/cmppass2-data.lsp
View file

@ -328,6 +328,7 @@
(defun search-vv (object &key permanent (errorp t))
(let* ((test (if si:*compiler-constants* 'eq 'equal-with-circularity))
(item (if permanent
(find object *permanent-objects* :test test :key #'vv-value)
(or (find object *permanent-objects* :test test :key #'vv-value)
(find object *temporary-objects* :test test :key #'vv-value)))))
(when (and (null item) errorp)