Skip to content
Snippets Groups Projects
Commit 4e0bdffd authored by wlott's avatar wlott
Browse files

Added interpreter stub for %more-arg-values.

parent ec4097d7
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval-comp.lisp,v 1.24 1993/05/19 08:37:32 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval-comp.lisp,v 1.25 1993/09/14 00:05:07 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -291,6 +291,10 @@ ...@@ -291,6 +291,10 @@
(declare (ignore count)) (declare (ignore count))
ptr) ptr)
(defun %more-arg-values (args count)
(declare (ignore count))
(values-list args))
(defun %argument-count-error (args-passed-count) (defun %argument-count-error (args-passed-count)
(error "Wrong number of arguments passed -- ~S." args-passed-count)) (error "Wrong number of arguments passed -- ~S." args-passed-count))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment