Skip to content
Snippets Groups Projects
Commit fc15b025 authored by ram's avatar ram
Browse files

Added *suppress-values-declaration* so that we can compile CLX, pending

some sort of decision of what we should really do.
parent 0615845c
No related branches found
No related tags found
No related merge requests found
......@@ -14,7 +14,8 @@
;;;
(in-package 'c)
(export '(*compile-time-define-macros* *converting-for-interpreter*))
(export '(*compile-time-define-macros* *converting-for-interpreter*
*suppress-values-declaration*))
(in-package 'ext)
(export '(ignorable truly-the maybe-inline *derive-function-types*))
......@@ -839,6 +840,10 @@
(undefined-value))
(defvar *suppress-values-declaration* nil
"If true, processing of the VALUES declaration is inhibited.")
;;; PROCESS-1-DECLARATION -- Internal
;;;
;;; Process a single declaration spec, agumenting the specified LEXENV
......@@ -872,11 +877,13 @@
(type
(process-type-declaration (cdr spec) res vars))
(values
(let ((types (cdr spec)))
(do-the-stuff (if (null (cdr types))
(car types)
`(values ,@types))
cont res 'values)))
(if *suppress-values-declaration*
res
(let ((types (cdr spec)))
(do-the-stuff (if (null (cdr types))
(car types)
`(values ,@types))
cont res 'values))))
(t
(let ((what (first spec)))
(cond ((member what type-specifier-symbols)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment