From a8bcb11a3fc7ff2231b9140fe9414c74afc41a97 Mon Sep 17 00:00:00 2001 From: mbb <mbb> Date: Thu, 16 May 1991 17:40:58 +0000 Subject: [PATCH] Added :initial-element nil to a make-array call. --- hemlock/completion.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hemlock/completion.lisp b/hemlock/completion.lisp index 2def53c0d..cd2b10f96 100644 --- a/hemlock/completion.lisp +++ b/hemlock/completion.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/completion.lisp,v 1.3 1991/02/08 16:33:26 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/completion.lisp,v 1.4 1991/05/16 17:40:58 mbb Exp $") ;;; ;;; ********************************************************************** ;;; @@ -30,7 +30,7 @@ (defconstant completion-table-size 991) -(defvar *completions* (make-array completion-table-size)) +(defvar *completions* (make-array completion-table-size :initial-element nil)) (defhvar "Completion Bucket Size" "This limits the number of completions saved for a particular combination of -- GitLab