X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-alieneval.lisp;h=8043bbd73f0ed74140a37d990e71cb67287eee8d;hb=65b5ab7e713d04e0d76bc0ee196374f6e57b922f;hp=6e38fdb7c172f1a819e172598ce78f0e87ebf755;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/early-alieneval.lisp b/src/code/early-alieneval.lisp
index 6e38fdb..8043bbd 100644
--- a/src/code/early-alieneval.lisp
+++ b/src/code/early-alieneval.lisp
@@ -9,9 +9,6 @@
 
 (in-package "SB!ALIEN")
 
-(file-comment
-  "$Header$")
-
 (defvar *alien-type-classes* (make-hash-table :test 'eq))
 
 (defvar *new-auxiliary-types* nil)
@@ -20,3 +17,14 @@
 ;;; 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)
+
+(defvar *default-c-string-external-format* nil)