From 7e0c6e1ffb0e6018c8fe352a8e4cbdf7f9f141fe Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 7 Nov 1993 23:42:49 +0000 Subject: [PATCH] Don't flame out on more-args, 'cause they exist now. --- code/debug-int.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/code/debug-int.lisp b/code/debug-int.lisp index ff809f176..a4c899396 100644 --- a/code/debug-int.lisp +++ b/code/debug-int.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.62 1993/08/30 21:19:40 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.63 1993/11/07 23:42:49 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1847,7 +1847,10 @@ args (incf i) vars)) res)) (c::more-arg - (error "I thought I'd never see a more-arg?")) + ;; Just ignore the fact that the next two args are the + ;; more arg context and count, and act like they are + ;; regular arguments. + nil) (t ;; Keyword arg. (push (list :keyword -- GitLab