Source

ilisp / ilisp-snd.el

Diff from to

ilisp-snd.el

 ;;;
 ;;; 19990824 Marco Antoniotti
 
+;; Have compiled 21.4 code also work on XEmacs binaries with real support
+;; for multiple values, by avoiding runtime calls to #'values: 
+(eval-when-compile (when (eq 'list (symbol-function 'values))
+                     (define-compiler-macro values (&rest args)
+                       `(list ,@args))))
+
 (defvar *ILISP-default-package* "COMMON-LISP-USER")
 
 (defun ilisp-add-set-package-hook ()	; Was: add-set-package-hook