additions for VAXLISP

[ricks%shambhala.Berkeley.EDU@BERKELEY.EDU (Rick L Spickelmier)]

Here are a few things that can be added to vaxl-low.lsp and test.lsp

		Rick Spickelmier
		UC Berkeley
		
;;;;
;;; add to vaxl-low.lsp
;;;

(defun function-arglist (func)
  (system::function-lambda-vars (symbol-function func)))

;;;
;;; this probably does more than is necessary!
;;;
(defmacro without-interrupts (&body body)
  `(critical-section ,@body))


;;;;
;;; add to test.lsp
;;;
(defvar *without-errors*
	(or #+Symbolics #'(lambda (form)
			    `(multiple-value-bind (.values. .errorp.)
				 (si::errset ,form nil)
			       (declare (ignore .values.))
			       .errorp.))
	    ;; errset returns nil for failure, (result) for no-error
	    ;; thus it should work for 'do-test'
	    #+VAXLISP #'(lambda (form) (system::errset ,form))
	    
	    nil))