Skip to content
Snippets Groups Projects
Commit 5dbc8406 authored by Nikodemus Siivola's avatar Nikodemus Siivola
Browse files

OPERATE binds *PACKAGE* and *READTABLE*

OPERATE is sufficiently like LOAD and COMPILE-FILE that it makes
  sense for it to guard against malformed operations which might
  change current package or readtable. (Like eg. CFFI-GROVEL file used
  to do until recently.)
parent 9ddec3bc
No related branches found
No related tags found
No related merge requests found
......@@ -1028,7 +1028,9 @@ method.")
(defun operate (operation-class system &rest args &key (verbose t) version
&allow-other-keys)
(let* ((op (apply #'make-instance operation-class
(let* ((*package* *package*)
(*readtable* *readtable*)
(op (apply #'make-instance operation-class
:original-initargs args
args))
(*verbose-out* (if verbose *standard-output* (make-broadcast-stream)))
......
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