clisp-cvs Digest, Vol 56, Issue 1

[<cli...@li...>]

Send clisp-cvs mailing list submissions to
	cli...@li...

To subscribe or unsubscribe via the World Wide Web, visit
	https://lists.sourceforge.net/lists/listinfo/clisp-cvs
or, via email, send a message with subject or body 'help' to
	cli...@li...

You can reach the person managing the list at
	cli...@li...

When replying, please edit your Subject line so it is more specific
than "Re: Contents of clisp-cvs digest..."


CLISP CVS commits for today

Today's Topics:

   1. clisp/src init.lisp,1.302,1.303 (Sam Steingold)
   2. clisp/src ChangeLog,1.7580,1.7581 pathname.d,1.526,1.527
      (Sam Steingold)


----------------------------------------------------------------------

Message: 1
Date: Thu, 02 Dec 2010 00:22:35 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src init.lisp,1.302,1.303
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv3850

Modified Files:
	init.lisp 
Log Message:
remove junk mistakenly committed in 1.297


Index: init.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/init.lisp,v
retrieving revision 1.302
retrieving revision 1.303
diff -u -d -r1.302 -r1.303
--- init.lisp	29 Nov 2010 21:42:49 -0000	1.302
+++ init.lisp	2 Dec 2010 00:22:33 -0000	1.303
@@ -1749,8 +1749,6 @@
            (*current-source-file* *load-truename*)
            (*current-source-line-1* nil)
            (*current-source-line-2* nil)
-           ;; allow reference sharing between forms in the file
-           (SYS::*READ-REFERENCE-TABLE* NIL) ; cf. compiler.lisp:compile-file
            #+ffi (ffi::*foreign-language* ffi::*foreign-language*)
            #+ffi (ffi::*foreign-library* ffi::*foreign-library*)
            (*package* *package*) ; bind *PACKAGE*




------------------------------

Message: 2
Date: Thu, 02 Dec 2010 01:16:07 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src ChangeLog,1.7580,1.7581 pathname.d,1.526,1.527
To: cli...@li...
Message-ID: <E1P...@sf...>

Update of /cvsroot/clisp/clisp/src
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv14006/src

Modified Files:
	ChangeLog pathname.d 
Log Message:
* src/pathname.d (SET-LIB-DIRECTORY): call TRUENAME on argument to
ensure an existing absolute path


Index: pathname.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/pathname.d,v
retrieving revision 1.526
retrieving revision 1.527
diff -u -d -r1.526 -r1.527
--- pathname.d	21 Oct 2010 15:35:24 -0000	1.526
+++ pathname.d	2 Dec 2010 01:16:05 -0000	1.527
@@ -9209,9 +9209,8 @@
 LISPFUNN(set_lib_directory,1)
 { /* (SYS::SET-LIB-DIRECTORY path) sets the CLISP's private library directory
   (called $(lisplibdir) in the Makefile) */
-  var object path = popSTACK();
-  if (stringp(path)) path = ensure_last_slash(path);
-  VALUES1(O(lib_dir) = coerce_xpathname(path));
+  if (stringp(STACK_0)) STACK_0 = ensure_last_slash(STACK_0);
+  funcall(L(truename),1); O(lib_dir) = value1;
 }
 
 /* ===================================================================== */

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.7580
retrieving revision 1.7581
diff -u -d -r1.7580 -r1.7581
--- ChangeLog	29 Nov 2010 21:42:49 -0000	1.7580
+++ ChangeLog	2 Dec 2010 01:16:04 -0000	1.7581
@@ -1,3 +1,8 @@
+2010-12-01  Sam Steingold  <sd...@gn...>
+
+	* pathname.d (SET-LIB-DIRECTORY): call TRUENAME on argument to
+	ensure an existing absolute path
+
 2010-11-29  Sam Steingold  <sd...@gn...>
 
 	fix bug#3122505: LOAD does not close FAS files with a bad version marker




------------------------------

------------------------------------------------------------------------------
Increase Visibility of Your 3D Game App & Earn a Chance To Win $500!
Tap into the largest installed PC base & get more eyes on your game by
optimizing for Intel(R) Graphics Technology. Get started today with the
Intel(R) Software Partner Program. Five $500 cash prizes are up for grabs.
http://p.sf.net/sfu/intelisp-dev2dev

------------------------------

_______________________________________________
clisp-cvs mailing list
cli...@li...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest, Vol 56, Issue 1
****************************************