[cmucl/cmucl][rtoy-unix-core] 2 commits: %name->file and %file->name macros need to be defined for

[Raymond Toy]

Raymond Toy pushed to rtoy-unix-core at cmucl / cmucl


Commits:
b81c7be3 by Raymond Toy at 2015-04-21T19:55:56Z
%name->file and %file->name macros need to be defined for
contrib/unix/unix.lisp.

Why are these macros anyway?  Can't they be functions?

- - - - -
4f53f883 by Raymond Toy at 2015-04-21T19:57:45Z
Install unix.lisp along with asdf and defsystem.

- - - - -


2 changed files:

- bin/make-main-dist.sh
- src/code/unix.lisp


Changes:

=====================================
bin/make-main-dist.sh
=====================================
--- a/bin/make-main-dist.sh
+++ b/bin/make-main-dist.sh
@@ -127,7 +127,7 @@ do
 done
 
 # Create the directories and install the fasl files for asdf and defsystem
-for f in asdf defsystem
+for f in asdf defsystem unix
 do
     install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/lib/cmucl/lib/contrib/$f
     install ${GROUP} ${OWNER} -m 0644 $TARGET/contrib/$f/$f.$FASL $DESTDIR/lib/cmucl/lib/contrib/$f

=====================================
src/code/unix.lisp
=====================================
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -25,7 +25,7 @@
 ;; Must be set to NIL initially to enable building Lisp!
 (defvar *filename-encoding* nil)
 
-(eval-when (:compile-toplevel)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (defmacro %name->file (string)
     `(if *filename-encoding*
 	 (string-encode ,string *filename-encoding*)


View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/17c7bba5dfd6d901a4599d3567e0be74d690d8d3...4f53f88371d37a6d5fc32398fdbe20143083ee33
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20150422/f82353c8/attachment.html>