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

Fixed typos

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-09-04 23:12:53 +02:00
parent 523dc9cac0
commit 325b1069d8
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpcall.lsp
View file

@ -253,10 +253,10 @@
(if (and (symbolp fname)
(not (eql (symbol-package fname) (find-package "CL"))))
(progn
(cmpnote "Emiting FUNCALL for ~S" fname)
(cmpnote "Emitting FUNCALL for ~S" fname)
(add-symbol fname))
(progn
(cmpnote "Emiting FDEFINITION for ~S" fname)
(cmpnote "Emitting FDEFINITION for ~S" fname)
(setq loc (list 'FDEFINITION fname))))))
(do ((i 0 (1+ i))
(l args (cdr l)))

4
src/cmp/cmptype.lsp
View file

@ -173,10 +173,10 @@
(t
`(OR ,t1 ,t2))))
((null tag1)
(cmpwarn "Unkonwn type ~S" t1)
(cmpwarn "Unknown type ~S" t1)
'T)
(t
(cmpwarn "Unkonwn type ~S" t2)
(cmpwarn "Unknown type ~S" t2)
'T))))
(defun type>= (type1 type2)