Changeset 10799
- Timestamp:
- Sep 17, 2008, 10:28:53 PM (12 years ago)
- Location:
- branches/working-0711/ccl
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/working-0711/ccl/level-0/nfasload.lisp
r10484 r10799 251 251 252 252 (defun register-package-ref (name) 253 (unless (typep name 'string) 254 (report-bad-arg name 'string)) 253 255 (let* ((ref 254 256 (or (gethash name *package-refs*) -
branches/working-0711/ccl/level-1/l1-symhash.lisp
r10783 r10799 189 189 (setq internal-size (require-type internal-size 'fixnum) 190 190 external-size (require-type external-size 'fixnum)) 191 (let ((pkg (gvector :package 192 (%new-package-hashtable internal-size) 193 (%new-package-hashtable external-size) 194 nil 195 nil 196 (list (new-package-name name)) 197 nil 198 (make-read-write-lock) 199 nil))) 200 (let* ((ref (register-package-ref name))) 191 (let* ((pkg-name (new-package-name name)) 192 (pkg (gvector :package 193 (%new-package-hashtable internal-size) 194 (%new-package-hashtable external-size) 195 nil 196 nil 197 (list pkg-name) 198 nil 199 (make-read-write-lock) 200 nil))) 201 (let* ((ref (register-package-ref pkg-name))) 201 202 (setf (package-ref.pkg ref) pkg)) 202 203 (use-package use pkg)
Note: See TracChangeset
for help on using the changeset viewer.