X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-alieneval.lisp;h=5da7b5085963cf871134b157dc1ebb5fe46604f6;hb=93be0089fe7b2a9e34bf1cb6da9fe6e902769f5e;hp=67478a548bdb4150a8afbbddeead67df8c494fd3;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/early-alieneval.lisp b/src/code/early-alieneval.lisp
index 67478a5..5da7b50 100644
--- a/src/code/early-alieneval.lisp
+++ b/src/code/early-alieneval.lisp
@@ -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)