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

Fixed CONVERT-MORE-ENTRY to use the interface policy when determining whether

to check for unknown keywords.
parent 946e5f69
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.43 1991/04/23 18:01:33 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.44 1991/05/10 15:48:39 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1214,7 +1214,11 @@
(context-temp (make-lambda-var :name n-context))
(n-count (gensym))
(count-temp (make-lambda-var :name n-count
:type (specifier-type 'fixnum))))
:type (specifier-type 'fixnum)))
(*lexical-environment*
(make-lexenv :cookie
(make-interface-cookie *lexical-environment*))))
(arg-vars context-temp count-temp)
(when rest
......@@ -1278,14 +1282,11 @@
(body `(when (and ,n-losep (not ,n-allowp))
(%unknown-keyword-argument-error ,n-losep)))))))
(let* ((*lexical-environment*
(make-lexenv :cookie
(make-interface-cookie *lexical-environment*)))
(ep (ir1-convert-lambda-body
(let ((ep (ir1-convert-lambda-body
`((let ,(temps)
,@(body)
(%funcall ,(optional-dispatch-main-entry res)
. ,(arg-vals))))
. ,(arg-vals))))
(arg-vars))))
(setf (optional-dispatch-more-entry res) ep))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment