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

Fixed indentation of CALL-UNKNOWN-GLOBAL-LOC.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-13 20:58:04 +01:00
parent b72823aeab
commit 755d9c3f96
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpcall.lsp
View file

@ -187,8 +187,8 @@
(defun call-unknown-global-loc (fname loc args &optional function-p)
(unless loc
(if (and (symbolp fname)
(not (eql (symbol-package fname)
(find-package "CL"))))
(not (eql (symbol-package fname)
(find-package "CL"))))
(setf loc (add-symbol fname)
function-p nil)
(setf loc (list 'FDEFINITION fname)