Commit 20c7daa7 authored by ram's avatar ram

*** empty log message ***

parent e8372e72
...@@ -83,7 +83,7 @@ ...@@ -83,7 +83,7 @@
(pushnew :clx *features*) (pushnew :clx *features*)
(pushnew :xlib *features*) (pushnew :xlib *features*)
(defparameter *version* "MIT R5.01") (defparameter *version* "MIT R5.02")
(pushnew :clx-mit-r4 *features*) (pushnew :clx-mit-r4 *features*)
(pushnew :clx-mit-r5 *features*) (pushnew :clx-mit-r5 *features*)
......
...@@ -2528,7 +2528,7 @@ ...@@ -2528,7 +2528,7 @@
(defun getenv (name) (defun getenv (name)
#+excl (sys:getenv name) #+excl (sys:getenv name)
#+lcl3.0 (lcl:environment-value name) #+lcl3.0 (lcl:environment-variable name)
#+CMU (cdr (assoc name ext:*environment-list* :test #'string=)) #+CMU (cdr (assoc name ext:*environment-list* :test #'string=))
#-(or excl lcl3.0 CMU) (progn name nil)) #-(or excl lcl3.0 CMU) (progn name nil))
......
...@@ -1803,7 +1803,7 @@ ...@@ -1803,7 +1803,7 @@
;; macros for getting error fields. See DECODE-CORE-ERROR for ;; macros for getting error fields. See DECODE-CORE-ERROR for
;; an example. ;; an example.
(declare (type symbol error-key) (declare (type symbol error-key)
(type function function)) (type (or symbol list) function))
;; First ensure the name is for a declared extension ;; First ensure the name is for a declared extension
(unless (or (find error-key *xerror-vector*) (unless (or (find error-key *xerror-vector*)
(dolist (extension *extensions*) (dolist (extension *extensions*)
......
...@@ -218,7 +218,7 @@ ...@@ -218,7 +218,7 @@
(let ((value (gensym))) (let ((value (gensym)))
`(let ((,value (read-card8 ,index))) `(let ((,value (read-card8 ,index)))
(declare (type (integer 0 (,(length keywords))) ,value)) (declare (type (integer 0 (,(length keywords))) ,value))
(type-check ,value (integer 0 (,(length keywords)))) (type-check ,value '(integer 0 (,(length keywords))))
(svref ',(apply #'vector keywords) ,value)))) (svref ',(apply #'vector keywords) ,value))))
((index thing &rest keywords) ((index thing &rest keywords)
`(write-card8 ,index (position ,thing `(write-card8 ,index (position ,thing
...@@ -238,7 +238,7 @@ ...@@ -238,7 +238,7 @@
(let ((value (gensym))) (let ((value (gensym)))
`(let ((,value (read-card16 ,index))) `(let ((,value (read-card16 ,index)))
(declare (type (integer 0 (,(length keywords))) ,value)) (declare (type (integer 0 (,(length keywords))) ,value))
(type-check ,value (integer 0 (,(length keywords)))) (type-check ,value '(integer 0 (,(length keywords))))
(svref ',(apply #'vector keywords) ,value)))) (svref ',(apply #'vector keywords) ,value))))
((index thing &rest keywords) ((index thing &rest keywords)
`(write-card16 ,index (position ,thing `(write-card16 ,index (position ,thing
...@@ -258,7 +258,7 @@ ...@@ -258,7 +258,7 @@
(let ((value (gensym))) (let ((value (gensym)))
`(let ((,value (read-card29 ,index))) `(let ((,value (read-card29 ,index)))
(declare (type (integer 0 (,(length keywords))) ,value)) (declare (type (integer 0 (,(length keywords))) ,value))
(type-check ,value (integer 0 (,(length keywords)))) (type-check ,value '(integer 0 (,(length keywords))))
(svref ',(apply #'vector keywords) ,value)))) (svref ',(apply #'vector keywords) ,value))))
((index thing &rest keywords) ((index thing &rest keywords)
`(write-card29 ,index (position ,thing `(write-card29 ,index (position ,thing
...@@ -307,7 +307,7 @@ ...@@ -307,7 +307,7 @@
(let ((value (gensym))) (let ((value (gensym)))
`(let ((,value (read-card29 ,index))) `(let ((,value (read-card29 ,index)))
(declare (type (integer 0 (,(length *boole-vector*))) ,value)) (declare (type (integer 0 (,(length *boole-vector*))) ,value))
(type-check ,value (integer 0 (,(length *boole-vector*)))) (type-check ,value '(integer 0 (,(length *boole-vector*))))
(svref *boole-vector* ,value)))) (svref *boole-vector* ,value))))
((index thing) ((index thing)
`(write-card29 ,index (position ,thing (the simple-vector *boole-vector*)))) `(write-card29 ,index (position ,thing (the simple-vector *boole-vector*))))
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment