Skip to content

Commit

Permalink
0.9.5.65:
Browse files Browse the repository at this point in the history
	Oops, slam.sh considered harmful. Move definition of *VALUES-TYPE-OKAY*
        to early-alieneval.lisp.
  • Loading branch information
jsnell committed Oct 15, 2005
1 parent f1c9a8e commit 2fee5f3
Show file tree
Hide file tree
Showing 3 changed files with 10 additions and 10 deletions.
9 changes: 9 additions & 0 deletions src/code/early-alieneval.lisp
Expand Up @@ -17,3 +17,12 @@
;;; used to keep from outputting the slots again if the same structure
;;; shows up twice.
(defvar *record-types-already-unparsed*)

;;; not documented in CMU CL:-(
;;;
;;; reverse engineering observations:
;;; * seems to be set when translating return values
;;; * seems to enable the translation of (VALUES), which is the
;;; Lisp idiom for C's return type "void" (which is likely
;;; why it's set when when translating return values)
(defvar *values-type-okay* nil)
9 changes: 0 additions & 9 deletions src/code/host-alieneval.lisp
Expand Up @@ -1045,15 +1045,6 @@

;;;; the FUNCTION and VALUES alien types

;;; not documented in CMU CL:-(
;;;
;;; reverse engineering observations:
;;; * seems to be set when translating return values
;;; * seems to enable the translation of (VALUES), which is the
;;; Lisp idiom for C's return type "void" (which is likely
;;; why it's set when when translating return values)
(defvar *values-type-okay* nil)

(define-alien-type-class (fun :include mem-block)
(result-type (missing-arg) :type alien-type)
(arg-types (missing-arg) :type list)
Expand Down
2 changes: 1 addition & 1 deletion version.lisp-expr
Expand Up @@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
"0.9.5.64"
"0.9.5.65"

0 comments on commit 2fee5f3

Please sign in to comment.