October 2016 - cmucl-cvs - mailman3.common-lisp.net

[Git][cmucl/cmucl][master] Fix typo in version in header banner
by Raymond Toy 05 Oct '16

05 Oct '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: b5598138 by Raymond Toy at 2016-10-04T20:34:48-07:00 Fix typo in version in header banner - - - - - 1 changed file: - src/general-info/release-21b.txt Changes: ===================================== src/general-info/release-21b.txt ===================================== --- a/src/general-info/release-21b.txt +++ b/src/general-info/release-21b.txt @@ -1,4 +1,4 @@ -========================== C M U C L 21 a ============================= +========================== C M U C L 21 b ============================= The CMUCL project is pleased to announce the release of CMUCL 21b. This is a major release which contains numerous enhancements and View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/b55981380a3ce59d860be724e…

1 0

[Git][cmucl/cmucl][master] 2 commits: Update from logs.
by Raymond Toy 05 Oct '16

05 Oct '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: c494f688 by Raymond Toy at 2016-10-04T20:33:43-07:00 Update from logs. - - - - - 298917a8 by Raymond Toy at 2016-10-04T20:34:08-07:00 Remove work in progress tag. - - - - - 1 changed file: - src/general-info/release-21b.txt Changes: ===================================== src/general-info/release-21b.txt ===================================== --- a/src/general-info/release-21b.txt +++ b/src/general-info/release-21b.txt @@ -1,7 +1,5 @@ ========================== C M U C L 21 a ============================= -[Work in progress] - The CMUCL project is pleased to announce the release of CMUCL 21b. This is a major release which contains numerous enhancements and bug fixes from the 21a release. @@ -75,6 +73,9 @@ New in this release: clang). (See ticket #12.) * Cleanups in handling floating-point exceptions. See Tickets #15 and #16. + * DIRECTORY with :FOLLOW-LINKS T (and :TRUENAME NIL) will follow + directory links. Previously, the directories that were links + weren't followed. * Trac Tickets: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/6d30fdd63c822201fc5c13d6…

1 0

[Git][cmucl/cmucl][master] Add test case for issue #24.
by Raymond Toy 04 Oct '16

04 Oct '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 6d30fdd6 by Raymond Toy at 2016-10-03T19:02:46-07:00 Add test case for issue #24. Forgot to check this in with the fix for issue #24. - - - - - 1 changed file: - + tests/resources/issue-24.lisp Changes: ===================================== tests/resources/issue-24.lisp ===================================== --- /dev/null +++ b/tests/resources/issue-24.lisp @@ -0,0 +1,5 @@ +;; Test case from issue #24. +(defun foo () + (print "Hello world")) + +(compile 'foo) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/6d30fdd63c822201fc5c13d60…

1 0

[Git][cmucl/cmucl] Pushed new branch netbsd7
by Robert Swindells 03 Oct '16

03 Oct '16

Robert Swindells pushed new branch netbsd7 at cmucl / cmucl

1 0

[Git][cmucl/cmucl][master] 2 commits: Add a test for MR !15
by Raymond Toy 03 Oct '16

03 Oct '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 7b85c61b by Elias Pipping at 2016-10-03T01:05:41+00:00 Add a test for MR !15 - - - - - 59328877 by Raymond Toy at 2016-10-03T02:52:35+00:00 Merge branch 'test-for-mr.15' into 'master' Add a test for MR !15 See merge request !16 - - - - - 6 changed files: - tests/issues.lisp - + tests/resources/mr.15/dir/file-in-dir - + tests/resources/mr.15/file - + tests/resources/mr.15/link-to-dir - + tests/resources/mr.15/link-to-dir-in-dir - + tests/resources/mr.15/link-to-file Changes: ===================================== tests/issues.lisp ===================================== --- a/tests/issues.lisp +++ b/tests/issues.lisp @@ -12,6 +12,12 @@ (declare (ignore arg)) form) +(defparameter *test-path* + (merge-pathnames (make-pathname :name :unspecific :type :unspecific + :version :unspecific) + *load-truename*) + "Directory for temporary test files.") + (define-test issue.1.a (:tag :issues) (assert-equal @@ -321,3 +327,23 @@ (assert-error 'kernel:simple-program-error (ext:run-program "cat" nil :before-execve t))) + +(define-test mr.15 + (:tag :issues) + (let (directories files) + (dolist (entry (directory (merge-pathnames "resources/mr.15/*.*" *test-path*) + :check-for-subdirs t + :follow-links nil + :truenamep nil)) + (let ((filename (pathname-name entry)) + (directory (first (last (pathname-directory entry))))) + (if filename + (push filename files) + (push directory directories)))) + (assert (null (set-difference files + '("file" "link-to-dir" + "link-to-dir-in-dir" "link-to-file") + :test #'string-equal))) + (assert (null (set-difference directories + '(".dir" "dir") + :test #'string-equal))))) ===================================== tests/resources/mr.15/dir/file-in-dir ===================================== --- /dev/null +++ b/tests/resources/mr.15/dir/file-in-dir ===================================== tests/resources/mr.15/file ===================================== --- /dev/null +++ b/tests/resources/mr.15/file ===================================== tests/resources/mr.15/link-to-dir ===================================== --- /dev/null +++ b/tests/resources/mr.15/link-to-dir @@ -0,0 +1 @@ +dir \ No newline at end of file ===================================== tests/resources/mr.15/link-to-dir-in-dir ===================================== --- /dev/null +++ b/tests/resources/mr.15/link-to-dir-in-dir @@ -0,0 +1 @@ +dir/dir-in-dir \ No newline at end of file ===================================== tests/resources/mr.15/link-to-file ===================================== --- /dev/null +++ b/tests/resources/mr.15/link-to-file @@ -0,0 +1 @@ +file \ No newline at end of file View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/4bf2062f18694d662f79d25c…

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix: directory followed symlinks with :follow-links nil
by Raymond Toy 02 Oct '16

02 Oct '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 17499591 by Elias Pipping at 2016-09-28T21:21:52+00:00 Fix: directory followed symlinks with :follow-links nil - - - - - 4bf2062f by Raymond Toy at 2016-10-02T16:48:11+00:00 Merge branch 'master' into 'master' Fix: directory followed symlinks with :follow-links nil I'm on Linux. I'm looking at a directory that contains both physical directories and symbolic links to directories. ### What I would expect: ```common-lisp (directory "/path/to/dir/*.*" :check-for-subdirs t :follow-links t :truenamep nil) ``` will show both (because it will show everything in that directory) and mark both types as directories with trailing slashes. ```common-lisp (directory "/path/to/dir/*.*" :check-for-subdirs t :follow-links nil :truenamep nil) ``` will again show all files but only add trailing slashes to the physical subdirectories. ### What actually happens Both commands give me the same output. That is because `directory` calls `unix:unix-file-kind` to categorise files into directory/link/etc., which internally calls `stat`. It will only use `lstat` if the second, optional argument is passed as **t**. In default mode (the way it currently is) symlinks to directories will be assigned the type :directory regardless of the flags passed to `directory`. I believe the change contained in this merge request is thus the correct fix. See merge request !15 - - - - - 1 changed file: - src/code/filesys.lisp Changes: ===================================== src/code/filesys.lisp ===================================== --- a/src/code/filesys.lisp +++ b/src/code/filesys.lisp @@ -1125,7 +1125,7 @@ optionally keeping some of the most recent old versions." (let ((*ignore-wildcards* t)) (mapcar #'(lambda (name) (let ((name (if (and check-for-subdirs - (eq (unix:unix-file-kind name) + (eq (unix:unix-file-kind name (not follow-links)) :directory)) (concatenate 'string name "/") name))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/3d18025d13e030958e44641c…

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #29: Update processing of command line
by Raymond Toy 01 Oct '16

01 Oct '16

Raymond Toy pushed to branch master at cmucl / cmucl Commits: d9090138 by Raymond Toy at 2016-09-18T21:09:13-07:00 Fix #29: Update processing of command line Several related changes here. o If :process-command-line is NIL, *command-line-strings* and *command-line-application-arguments* weren't getting updated. They should get updated so that the resulting core can get updated command line options instead of using the values dumped with the core. The command line switch demons are still not run, as before. o Add a :quiet option as if -quiet were given. - - - - - 3d18025d by Raymond Toy at 2016-10-01T17:45:23+00:00 Merge branch 'rtoy-29-process-command-line' into 'master' Fix #29: Update processing of command line Several related changes here. - If `:process-command-line` is NIL, `*command-line-strings*` and `*command-line-application-arguments*` weren't getting updated. They should get updated so that the resulting core can get updated command line options instead of using the values dumped with the core. The command line switch demons are still not run, as before. - Add a `:quiet` option as if `-quiet` were given. See merge request !13 - - - - - 3 changed files: - src/code/commandline.lisp - src/code/save.lisp - src/i18n/locale/cmucl.pot Changes: ===================================== src/code/commandline.lisp ===================================== --- a/src/code/commandline.lisp +++ b/src/code/commandline.lisp @@ -72,7 +72,7 @@ ;;;; Processing the command strings. -(defun process-command-strings () +(defun process-command-strings (init-command-switches-p) (setq *command-line-words* nil) (setq *command-line-switches* nil) (let ((cmd-strings lisp::lisp-command-line-list) @@ -103,7 +103,7 @@ (return-from process-command-strings nil)) ;; Set command line switches. - ;; + ;; (loop (unless str (return (setf *command-line-switches* @@ -119,14 +119,16 @@ (let (word-list) (loop (unless str - (push (make-cmd-switch switch value (nreverse word-list)) - *command-line-switches*) + (when init-command-switches-p + (push (make-cmd-switch switch value (nreverse word-list)) + *command-line-switches*)) (return nil)) (unless (zerop (length (the simple-string str))) (when (char= #\- (schar str 0)) - (push (make-cmd-switch switch value (nreverse word-list)) - *command-line-switches*) + (when init-command-switches-p + (push (make-cmd-switch switch value (nreverse word-list)) + *command-line-switches*)) (when (and (= (length str) 2) (char= #\- (schar str 1))) ;; Gather up everything after --, and exit. @@ -134,7 +136,7 @@ (setf str nil)) (return nil)) (push str word-list)) - (setq str (pop cmd-strings)))))))) + (setq str (pop cmd-strings))))))))) (defun get-command-line-switch (sname) "Accepts the name of a switch as a string and returns the value of ===================================== src/code/save.lisp ===================================== --- a/src/code/save.lisp +++ b/src/code/save.lisp @@ -153,7 +153,8 @@ (process-command-line t) #+:executable (executable nil) - (batch-mode nil)) + (batch-mode nil) + (quiet nil)) "Saves a CMU Common Lisp core image in the file of the specified name. The following keywords are defined: @@ -191,8 +192,10 @@ :process-command-line If true (the default), process command-line switches via the normal - mechanisms, otherwise ignore all switches (except those processed by the - C startup code). + mechanisms, otherwise ignore all switches (except those processed by + the C startup code). In either case, the command line switches are + saved in *COMMAND-LINE-STRINGS* and + *COMMAND-LINE-APPLICATION-ARGUMENTS*. :executable If nil (the default), save-lisp will save using the traditional @@ -203,7 +206,14 @@ :batch-mode If nil (the default), then the presence of the -batch command-line switch will invoke batch-mode processing. If true, the produced core - will always be in batch-mode, regardless of any command-line switches." + will always be in batch-mode, regardless of any command-line switches. + + :quiet + If non-NIL, loading, compiling, and GC messages are suppressed. + This is equivalent to setting *load-verbose*, *compile-verbose*, + *compile-print*, *compile-progress*, *require-verbose*, and + *gc-verbose* all to NIL. If NIL (the default), the default + values of these variables are used." (unless (probe-file (directory-namestring core-file-name)) (error 'simple-file-error @@ -240,8 +250,7 @@ (environment-init) (dolist (f *after-save-initializations*) (funcall f)) (intl::setlocale) - (when process-command-line - (ext::process-command-strings)) + (ext::process-command-strings process-command-line) (setf *editor-lisp-p* nil) (macrolet ((find-switch (name) `(find ,name *command-line-switches* @@ -249,7 +258,8 @@ :test #'(lambda (x y) (declare (simple-string x y)) (string-equal x y))))) - (when (and process-command-line (find-switch "quiet")) + (when (or quiet + (and process-command-line (find-switch "quiet"))) (setq *load-verbose* nil *compile-verbose* nil *compile-print* nil @@ -285,8 +295,9 @@ (ext::invoke-switch-demons *command-line-switches* *command-switch-demons*)) (when (and print-herald - (not (and process-command-line - (find-switch "quiet")))) + (not (or quiet + (and process-command-line + (find-switch "quiet"))))) ;; Don't print the herald if -quiet is given. (print-herald))))) (funcall init-function)) ===================================== src/i18n/locale/cmucl.pot ===================================== --- a/src/i18n/locale/cmucl.pot +++ b/src/i18n/locale/cmucl.pot @@ -6713,8 +6713,10 @@ msgid "" "\n" " :process-command-line\n" " If true (the default), process command-line switches via the normal\n" -" mechanisms, otherwise ignore all switches (except those processed by the\n" -" C startup code).\n" +" mechanisms, otherwise ignore all switches (except those processed by\n" +" the C startup code). In either case, the command line switches are\n" +" saved in *COMMAND-LINE-STRINGS* and\n" +" *COMMAND-LINE-APPLICATION-ARGUMENTS*.\n" "\n" " :executable\n" " If nil (the default), save-lisp will save using the traditional\n" @@ -6725,7 +6727,14 @@ msgid "" " :batch-mode\n" " If nil (the default), then the presence of the -batch command-line\n" " switch will invoke batch-mode processing. If true, the produced core\n" -" will always be in batch-mode, regardless of any command-line switches." +" will always be in batch-mode, regardless of any command-line switches.\n" +"\n" +" :quiet\n" +" If non-NIL, loading, compiling, and GC messages are suppressed.\n" +" This is equivalent to setting *load-verbose*, *compile-verbose*,\n" +" *compile-print*, *compile-progress*, *require-verbose*, and\n" +" *gc-verbose* all to NIL. If NIL (the default), the default\n" +" values of these variables are used." msgstr "" #: src/code/save.lisp View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/1b8f72ed832bba4c49187a0e…

1 0