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

Fixed typo.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-02-15 13:19:04 +01:00
parent 75d0ea3434
commit 85cf59cee6
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpcall.lsp
View file

@ -87,7 +87,7 @@
(otherwise
(let* ((*inline-blocks* 0)
(*temp* *temp*)
(function-p (and (subtypep (c1form-type form) 'function)
(function-p (and (subtypep (c1form-primary-type form) 'function)
(policy-assume-right-type))))
(unless loc
(setf loc (maybe-save-value form args)))