From 078d12ebf41fb8bebc3067088eed7e3c2c180714 Mon Sep 17 00:00:00 2001 From: Robert Dodier Date: Thu, 27 Apr 2023 08:09:06 -0700 Subject: [PATCH] Change $-READ-AUX from DEFMFUN to DEFUN since it is not a user-visible function. (The DEFMFUN is a result of the automated search and replace in commit 385a3ed0.) --- src/commac.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/commac.lisp b/src/commac.lisp index 1094fb479..170710b85 100644 --- a/src/commac.lisp +++ b/src/commac.lisp @@ -182,7 +182,7 @@ (defvar *sharp-read-buffer* (make-array 140 :element-type ' #.(array-element-type "a") :fill-pointer 0 :adjustable t)) -(defmfun $-read-aux (arg stream &aux (meval-flag t) (*mread-prompt* "")) +(defun $-read-aux (arg stream &aux (meval-flag t) (*mread-prompt* "")) (declare (special *mread-prompt*) (ignore arg)) (setf (fill-pointer *sharp-read-buffer*) 0) -- 2.11.4.GIT