[cmucl/cmucl][rtoy-unix-core] 2 commits: %name->file and %file->name macros need to be defined for
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/17c7bba5dfd6d901a4599d356...
participants (1)
-
Raymond Toy