Commit 0585f202 authored by Marco Antoniotti's avatar Marco Antoniotti 💬

Minor changes. Added COMPONENT-OPERATION-NOOP.

parent 85e766d6
......@@ -1566,6 +1566,15 @@ fasl.")
(setf (gethash name *component-operations*) operation)
(gethash name *component-operations*)))
(defun component-operation-noop (component &rest args)
(format t "MAKE: NOOP operation on component." args)
(terpri))
(defun set-component-operation (name operation)
(if operation
(setf (gethash name *component-operations*) operation)
(setf (gethash name *component-operations*) 'component-operation-noop)))
;;; ********************************
;;; AFS @sys immitator *************
......@@ -1666,7 +1675,7 @@ s/^[^M]*IRIX Execution Environment 1, *[a-zA-Z]* *\\([^ ]*\\)/\\1/p\\
#+mcl "mcl"
#+coral "coral"
#+gclisp "gclisp"
#+abcl "abcl"
#+(or abcl armedbear) "abcl"
)
......
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