Codebase list cafeobj / 96cd5d1
Module internal print name should not be symbol. tswd 5 years ago
2 changed file(s) with 3 addition(s) and 3 deletion(s). Raw diff Collapse all Expand all
+2
-2
chaos/cafein/rengine.lisp less more
115115 (if .term-id-paranoia.
116116 (let* ((op (term-head term))
117117 (opmod (module-print-name (method-module op))))
118 (push (the symbol opmod) .id-conf.)
119 (push (the symbol (method-id-symbol (term-head term))) .id-conf.))
118 (push opmod .id-conf.)
119 (push (the symbol (method-id-symbol op)) .id-conf.))
120120 (push (the symbol (method-id-symbol (term-head term))) .id-conf.))
121121 (dolist (subterm (term-subterms term) .id-conf.)
122122 (setq .id-conf. (nconc .id-conf. (get-term-id subterm)))))
+1
-1
chaos/primitives/bmodule2.lisp less more
12191219 (setf (module-alias mod) nil)
12201220 (setf (module-symbol-table mod) (make-symbol-table))
12211221 ;; print name
1222 (setf (module-print-name mod) (intern (make-module-print-name mod)))
1222 (setf (module-print-name mod) (make-module-print-name mod))
12231223 ;;
12241224 (clear-tmp-sort-cache)
12251225 (clear-method-info-hash))