Skip to content
Snippets Groups Projects
Commit 463460a6 authored by wlott's avatar wlott
Browse files

First MIPS cut.

parent 5325d600
No related branches found
No related tags found
No related merge requests found
...@@ -254,7 +254,7 @@ ...@@ -254,7 +254,7 @@
(,len (length ,vec)) (,len (length ,vec))
(,h2 (1+ (the fixnum (rem (the fixnum ,sxhash) (,h2 (1+ (the fixnum (rem (the fixnum ,sxhash)
(the fixnum (- ,len 2))))))) (the fixnum (- ,len 2)))))))
(declare (type (simple-array (unsigned-byte 8)) ,hash) (declare (type (simple-array (unsigned-byte 8) (*)) ,hash)
(simple-vector ,vec) (simple-vector ,vec)
(fixnum ,len ,h2)) (fixnum ,len ,h2))
(prog ((,index-var (rem (the fixnum ,sxhash) ,len)) (prog ((,index-var (rem (the fixnum ,sxhash) ,len))
...@@ -565,8 +565,8 @@ ...@@ -565,8 +565,8 @@
(multiple-value-bind (symbol where) (find-symbol* name length package) (multiple-value-bind (symbol where) (find-symbol* name length package)
(if where (if where
(values symbol where) (values symbol where)
(let ((symbol (%primitive alloc-symbol (subseq name 0 length)))) (let ((symbol (make-symbol (subseq name 0 length))))
(%primitive set-package symbol package) (%primitive c::set-package symbol package)
(cond ((eq package *keyword-package*) (cond ((eq package *keyword-package*)
(add-symbol (package-external-symbols package) symbol) (add-symbol (package-external-symbols package) symbol)
(set symbol symbol)) (set symbol symbol))
...@@ -668,7 +668,7 @@ ...@@ -668,7 +668,7 @@
(package-external-symbols package)) (package-external-symbols package))
name) name)
(if (eq (symbol-package symbol) package) (if (eq (symbol-package symbol) package)
(%primitive set-package symbol nil)) (%primitive c::set-package symbol nil))
t) t)
(t nil))))) (t nil)))))
...@@ -829,7 +829,7 @@ ...@@ -829,7 +829,7 @@
;; ;;
;; If any of the symbols are uninterned, make them be owned by Package. ;; If any of the symbols are uninterned, make them be owned by Package.
(dolist (sym symbols) (dolist (sym symbols)
(unless (symbol-package sym) (%primitive set-package sym package))) (unless (symbol-package sym) (%primitive c::set-package sym package)))
(shadowing-import cset package))) (shadowing-import cset package)))
;;; Shadowing-Import -- Public ;;; Shadowing-Import -- Public
...@@ -872,8 +872,8 @@ ...@@ -872,8 +872,8 @@
(let ((name (symbol-name sym))) (let ((name (symbol-name sym)))
(multiple-value-bind (s w) (find-symbol name package) (multiple-value-bind (s w) (find-symbol name package)
(when (or (not w) (eq w :inherited)) (when (or (not w) (eq w :inherited))
(setq s (%primitive alloc-symbol name)) (setq s (make-symbol name))
(%primitive set-package s package) (%primitive c::set-package s package)
(add-symbol internal s)) (add-symbol internal s))
(pushnew s (package-shadowing-symbols package)))))) (pushnew s (package-shadowing-symbols package))))))
t) t)
...@@ -1066,12 +1066,12 @@ ...@@ -1066,12 +1066,12 @@
;; Put internal symbols in the internal hashtable and set package. ;; Put internal symbols in the internal hashtable and set package.
(dolist (symbol (second spec)) (dolist (symbol (second spec))
(add-symbol internal symbol) (add-symbol internal symbol)
(%primitive set-package symbol pkg)) (%primitive c::set-package symbol pkg))
;; ;;
;; External symbols same, only go in external table. ;; External symbols same, only go in external table.
(dolist (symbol (third spec)) (dolist (symbol (third spec))
(add-symbol external symbol) (add-symbol external symbol)
(%primitive set-package symbol pkg)) (%primitive c::set-package symbol pkg))
;; ;;
;; Don't set package for Imported symbols. ;; Don't set package for Imported symbols.
(dolist (symbol (fourth spec)) (dolist (symbol (fourth spec))
......
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