Commit 20c7daa7 authored by ram's avatar ram

*** empty log message ***

parent e8372e72
......@@ -83,7 +83,7 @@
(pushnew :clx *features*)
(pushnew :xlib *features*)
(defparameter *version* "MIT R5.01")
(defparameter *version* "MIT R5.02")
(pushnew :clx-mit-r4 *features*)
(pushnew :clx-mit-r5 *features*)
......
......@@ -2528,7 +2528,7 @@
(defun 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=))
#-(or excl lcl3.0 CMU) (progn name nil))
......
......@@ -1803,7 +1803,7 @@
;; macros for getting error fields. See DECODE-CORE-ERROR for
;; an example.
(declare (type symbol error-key)
(type function function))
(type (or symbol list) function))
;; First ensure the name is for a declared extension
(unless (or (find error-key *xerror-vector*)
(dolist (extension *extensions*)
......
......@@ -218,7 +218,7 @@
(let ((value (gensym)))
`(let ((,value (read-card8 ,index)))
(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))))
((index thing &rest keywords)
`(write-card8 ,index (position ,thing
......@@ -238,7 +238,7 @@
(let ((value (gensym)))
`(let ((,value (read-card16 ,index)))
(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))))
((index thing &rest keywords)
`(write-card16 ,index (position ,thing
......@@ -258,7 +258,7 @@
(let ((value (gensym)))
`(let ((,value (read-card29 ,index)))
(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))))
((index thing &rest keywords)
`(write-card29 ,index (position ,thing
......@@ -307,7 +307,7 @@
(let ((value (gensym)))
`(let ((,value (read-card29 ,index)))
(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))))
((index thing)
`(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