Commit bbece7f7 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Use :allocation :class for the bundle-type slot of basic-concatenate-source-op

Instance-allocated operation slots are of the devil.
parent 7c3f979c
......@@ -24,7 +24,7 @@
(with-upgradability ()
;; Base classes for both regular and monolithic concatenate-source operations
(defclass basic-concatenate-source-op (bundle-op)
((bundle-type :initform "lisp")))
((bundle-type :initform "lisp" :allocation :class)))
(defclass basic-load-concatenated-source-op (basic-load-op selfward-operation) ())
(defclass basic-compile-concatenated-source-op (basic-compile-op selfward-operation) ())
(defclass basic-load-compiled-concatenated-source-op (basic-load-op selfward-operation) ())
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment