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

Fixed a number of typos and missing package prefixes.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-12-29 22:39:51 +01:00
parent 3d8d0f5d34
commit 35f05ff57d
6 changed files with 17 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/bare.lsp.in
View file

@ -149,3 +149,4 @@
;;; Now we are in shape to do something useful.
;;; End of bare.lsp")
(terpri)
(setf c::*compiler-break-enable* t)

6
src/new-cmp/cmpcffi.lsp
View file

@ -57,9 +57,9 @@
;; Find out the output types of the inline form. The syntax is rather relaxed
;; output-type = lisp-type | c-type | (values {lisp-type | c-type}*)
(flet ((produce-type-pair (type)
(if (lisp-type-p type)
(cons type (lisp-type->rep-type type))
(cons (rep-type->lisp-type type) type))))
(if (c-backend::lisp-type-p type)
(cons type (c-backend::lisp-type->rep-type type))
(cons (c-backend::rep-type->lisp-type type) type))))
(cond ((eq output-type ':void)
(setf output-rep-type '()
output-type 'NIL))

6
src/new-cmp/cmpenv.lsp
View file

@ -208,7 +208,7 @@
(proclaim-var decl-name (cdr decl)))
(otherwise
(cond ((multiple-value-bind (ok type)
(valid-type-specifier decl-name)
(c-types:valid-type-specifier decl-name)
(when ok
(proclaim-var type (rest decl))
t)))
@ -300,7 +300,7 @@
(push decl others))
(otherwise
(multiple-value-bind (ok type)
(valid-type-specifier decl-name)
(c-types:valid-type-specifier decl-name)
(cmpassert ok "The declaration specifier ~s is unknown." decl-name)
(declare-variables type decl-args)))
)))))
@ -449,7 +449,7 @@
env)
(defun cmp-env-declare-special (name &optional (env *cmp-env*))
(cmp-env-register-var (c1make-global-variable name :warn nil :kind 'SPECIAL)
(cmp-env-register-var (c::c1make-global-variable name :warn nil :kind 'SPECIAL)
env nil)
env)

4
src/new-cmp/cmploc.lsp
View file

@ -80,8 +80,8 @@
(LONG-FLOAT-VALUE 'LONG-FLOAT)
(C-INLINE (let ((type (first (second loc))))
(cond ((and (consp type) (eq (first type) 'VALUES)) T)
((lisp-type-p type) type)
(t (rep-type->lisp-type type)))))
((c-backend::lisp-type-p type) type)
(t (c-backend::rep-type->lisp-type type)))))
(BIND (var-type (second loc)))
(LCL (or (third loc) T))
(MAKE-CCLOSURE 'FUNCTION)

7
src/new-cmp/cmppackage.lsp
View file

@ -39,6 +39,7 @@
"ELIMINATE-FROM-SET-NODES" "ELIMINATE-FROM-READ-NODES"
"GLOBAL-VAR-P" "UNUSED-VARIABLE-P" "TEMPORAL-VAR-P"
"FUNCTION-MAY-HAVE-SIDE-EFFECTS"
"FUNCTION-CLOSURE-VARIABLES"
"FUN-VOLATILE-P" "FUN-NARG-P" "FUN-FIXED-NARG"
"PPRINT-C1FORM" "PPRINT-C1FORMS"
@ -78,6 +79,8 @@
"DATA-PERMANENT-STORAGE-SIZE" "DATA-TEMPORARY-STORAGE-SIZE"
"DATA-SIZE" "DATA-GET-ALL-OBJECTS" "DATA-INIT"
"ADD-OBJECT" "ADD-SYMBOL" "ADD-KEYWORDS"
"*COMPILER-CONSTANTS*"
)
(:import-from "SI" "*COMPILER-CONSTANTS*"))
@ -130,7 +133,7 @@
"ADD-DECLARATIONS"
"CMP-ENV-REGISTER-VAR" "CMP-ENV-DECLARE-SPECIAL"
"CMP-ENV-ADD-DECLARATION" "CMP-ENV-EXTEND-DECLARATION"
"CMP-ENV-REGISTER-FUNCTOIN" "CMP-ENV-REGISTER-MACRO"
"CMP-ENV-REGISTER-FUNCTION" "CMP-ENV-REGISTER-MACRO"
"CMP-ENV-REGISTER-FTYPE" "CMP-ENV-REGISTER-SYMBOL-MACRO"
"CMP-ENV-REGISTER-BLOCK" "CMP-ENV-REGISTER-TAG"
"CMP-ENV-REGISTER-CLEANUP" "CMP-ENV-CLEANUPS"
@ -176,6 +179,8 @@
"TYPE-OR"
"TYPE>="
"TYPE-FILTER"
"VALID-TYPE-SPECIFIER"
"KNOWN-TYPE-P"
"VALUES-TYPE-PRIMARY-TYPE"
"VALUES-TYPE-TO-N-TYPES"
"DEFAULT-INIT"

4
src/new-cmp/cmptables.lsp
View file

@ -75,8 +75,8 @@
(progn . c1progn)
;; cmpffi.lsp
(ffi:clines . c-backend::c1clines)
(ffi:c-inline . c-backend::c1c-inline)
(ffi:clines . c1clines)
(ffi:c-inline . c1c-inline)
;; cmpflet
(flet . c1flet)