From 0ac8b16acdc2472036bd3d21b2836c0a940a7057 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 17 Nov 1991 17:07:22 +0000 Subject: [PATCH] Added &allow-other-keys to the destructuring-bind in gen-field-spec-forms. --- compiler/disassem.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp index e665bf592..8ec62474f 100644 --- a/compiler/disassem.lisp +++ b/compiler/disassem.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.1 1991/11/15 15:25:37 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.2 1991/11/17 17:07:22 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -630,7 +630,8 @@ containing only those things which PRINT-INST-USING can handle." `(list ,@(mapcar #'(lambda (fspec) (destructuring-bind (name op arg &key mask function - inverse-function type) + inverse-function type + &allow-other-keys) fspec `(list ',name ,@(ecase op -- GitLab