Changeset 6184
- Timestamp:
- Apr 8, 2007, 3:04:23 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/level-0/nfasload.lisp
r5271 r6184 477 477 478 478 (deffaslop $fasl-timm (s) 479 (rlet ((p : long))479 (rlet ((p :int)) 480 480 (setf (%get-long p) (%fasl-read-long s)) 481 481 (%epushval s (%get-unboxed-ptr p)))) … … 985 985 986 986 987 (let* ((force-export-packages (list *keyword-package*))) 987 (let* ((force-export-packages (list *keyword-package*)) 988 (force-export-packages-lock (make-lock))) 988 989 (defun force-export-packages () 989 force-export-packages) 990 (with-lock-grabbed (force-export-packages-lock) 991 (copy-list force-export-packages))) 990 992 (defun package-force-export (p) 991 993 (let* ((pkg (pkg-arg p))) 992 (pushnew pkg force-export-packages) 993 pkg))) 994 (with-lock-grabbed (force-export-packages-lock) 995 (pushnew pkg force-export-packages)) 996 pkg)) 997 (defun force-export-package-p (pkg) 998 (with-lock-grabbed (force-export-packages-lock) 999 (if (memq pkg force-export-packages) 1000 t)))) 994 1001 995 1002 … … 1003 1010 (unless (%car package-predicate) (%rplaca package-predicate package))) 1004 1011 (setf (%svref symvec target::symbol.package-predicate-cell) package)) 1005 (if (or force-export ( memq package (force-export-packages)))1012 (if (or force-export (force-export-package-p package)) 1006 1013 (progn 1007 1014 (%htab-add-symbol symbol (pkg.etab package) external-idx) … … 1015 1022 (the fixnum (%symbol-bits symbol))))))) 1016 1023 (%htab-add-symbol symbol (pkg.itab package) internal-idx)) 1024 (let* ((hook (pkg.intern-hook package))) 1025 (when hook (funcall hook symbol))) 1017 1026 symbol)) 1018 1027
Note: See TracChangeset
for help on using the changeset viewer.