Commit [0975e0] Maximize Restore History

0.7.13.30-cast.4: (updated to 0.7.13.30)

* Small steps towards ANSI VALUES type specifier:
** removed checks for VALUES-TYPE-{KEYP,KEYWORDS};
** &OPTIONAL type in VALUES does not automatically allow NIL;
** object type <type> in a values context \approx (VALUES &OPTIONAL
<type> &REST T); DEFKNOWN uses the old meaning;

* added type checking for single value and MV-BIND receivers;
* THE coerces the asserted type to VALUES;
* fixed order of CAST LTN-annotating;

Alexey Dejneka Alexey Dejneka 2003-03-20

1 2 3 .. 8 > >> (Page 1 of 8)
added contrib/sb-executable/Makefile
added contrib/sb-executable/sb-executable.lisp
added contrib/sb-rotate-byte/Makefile
added contrib/sb-rotate-byte/README
added contrib/sb-rotate-byte/compiler.lisp
added contrib/sb-rotate-byte/package.lisp
added contrib/sb-rotate-byte/rotate-byte-tests.lisp
added contrib/sb-rotate-byte/rotate-byte.lisp
added contrib/sb-rotate-byte/sb-rotate-byte.asd
added contrib/sb-rotate-byte/x86-vm.lisp
changed contrib/asdf/Makefile
changed contrib/asdf/asdf.lisp
changed contrib/sb-aclrepl/sb-aclrepl.lisp
changed contrib/sb-bsd-sockets/Makefile
changed contrib/sb-bsd-sockets/constants.lisp
changed contrib/sb-bsd-sockets/defpackage.lisp
changed contrib/sb-bsd-sockets/sb-bsd-sockets.asd
changed contrib/sb-bsd-sockets/tests.lisp
changed contrib/vanilla-module.mk
changed doc/compiler.sgml
changed doc/sbcl-html.dsl
copied contrib/sb-bsd-sockets/unix.lisp -> contrib/sb-bsd-sockets/local.lisp
contrib/sb-executable/Makefile Diff Switch to side-by-side view
Loading...
contrib/sb-executable/sb-executable.lisp Diff Switch to side-by-side view
Loading...
contrib/sb-rotate-byte/Makefile Diff Switch to side-by-side view
Loading...
contrib/sb-rotate-byte/README Diff Switch to side-by-side view
Loading...
contrib/sb-rotate-byte/compiler.lisp Diff Switch to side-by-side view
Loading...
contrib/sb-rotate-byte/package.lisp Diff Switch to side-by-side view
Loading...
contrib/sb-rotate-byte/rotate-byte-tests.lisp Diff Switch to side-by-side view
Loading...
contrib/sb-rotate-byte/rotate-byte.lisp Diff Switch to side-by-side view
Loading...
contrib/sb-rotate-byte/sb-rotate-byte.asd Diff Switch to side-by-side view
Loading...
contrib/sb-rotate-byte/x86-vm.lisp Diff Switch to side-by-side view
Loading...
contrib/asdf/Makefile Diff Switch to side-by-side view
Loading...
contrib/asdf/asdf.lisp Diff Switch to side-by-side view
Loading...
contrib/sb-aclrepl/sb-aclrepl.lisp Diff Switch to side-by-side view
Loading...
contrib/sb-bsd-sockets/Makefile Diff Switch to side-by-side view
Loading...
contrib/sb-bsd-sockets/constants.lisp Diff Switch to side-by-side view
Loading...
contrib/sb-bsd-sockets/defpackage.lisp Diff Switch to side-by-side view
Loading...
contrib/sb-bsd-sockets/sb-bsd-sockets.asd Diff Switch to side-by-side view
Loading...
contrib/sb-bsd-sockets/tests.lisp Diff Switch to side-by-side view
Loading...
contrib/vanilla-module.mk Diff Switch to side-by-side view
Loading...
doc/compiler.sgml Diff Switch to side-by-side view
Loading...
doc/sbcl-html.dsl Diff Switch to side-by-side view
Loading...
contrib/sb-bsd-sockets/unix.lisp to contrib/sb-bsd-sockets/local.lisp
--- a/contrib/sb-bsd-sockets/unix.lisp
+++ b/contrib/sb-bsd-sockets/local.lisp
@@ -1,23 +1,23 @@
 (in-package :sb-bsd-sockets)
 
-#|| <h2>File-domain sockets</h2>
+#|| <h2>Local (unix) domain sockets</h2>
 
-File-domain (AF_FILE) sockets are also known as Unix-domain sockets, but were
+Local domain (AF_LOCAL) sockets are also known as Unix-domain sockets, but were
 renamed by POSIX presumably on the basis that they may be
 available on other systems too.  
 
-A file-domain socket address is a string, which is used to create a node
+A local socket address is a string, which is used to create a node
 in the local filesystem.  This means of course that they cannot be used across
 a network.
 
 ||#
 
-(defclass unix-socket (socket)
-  ((family :initform sockint::af-unix)))
+(defclass local-socket (socket)
+  ((family :initform sockint::af-local)))
 
-(defmethod make-sockaddr-for ((socket unix-socket) &optional sockaddr &rest address &aux (filename (first address)))
+(defmethod make-sockaddr-for ((socket local-socket) &optional sockaddr &rest address &aux (filename (first address)))
   (let ((sockaddr (or sockaddr (sockint::allocate-sockaddr-un))))
-    (setf (sockint::sockaddr-un-family sockaddr) sockint::af-unix)
+    (setf (sockint::sockaddr-un-family sockaddr) sockint::af-local)
     (when filename
       (loop for c across filename
 	    ;; XXX magic constant ew ew ew.  should grovel this from
@@ -28,10 +28,10 @@
 	    (setf (sockint::sockaddr-un-path sockaddr (1+ i)) 0)))
     sockaddr))
 
-(defmethod size-of-sockaddr ((socket unix-socket))
+(defmethod size-of-sockaddr ((socket local-socket))
   sockint::size-of-sockaddr-un)
 
-(defmethod bits-of-sockaddr ((socket unix-socket) sockaddr)
+(defmethod bits-of-sockaddr ((socket local-socket) sockaddr)
   "Returns filename of SOCKADDR"
   (let ((name (sb-c-call::%naturalize-c-string
 	       (sb-sys:sap+ (sockint::array-data-address sockaddr)
1 2 3 .. 8 > >> (Page 1 of 8)