Codebase list cl-portable-aserve / b498e61
Update upstream source from tag 'upstream/20190720.gitcac1d69+dfsg' Update to upstream version '20190720.gitcac1d69+dfsg' with Debian dir ee090c7069171002b16c71c2c79b91cf49c0000a Sébastien Villemot 3 years ago
2 changed file(s) with 5 addition(s) and 2 deletion(s). Raw diff Collapse all Expand all
+3
-1
acl-compat/sbcl/acl-socket.lisp less more
174174 (b (logand #xff (ash ipaddr -16)))
175175 (c (logand #xff (ash ipaddr -8)))
176176 (d (logand #xff ipaddr)))
177 (make-array 4 :initial-contents (list a b c d))))
177 (make-array 4
178 :element-type '(unsigned-byte 8)
179 :initial-contents (list a b c d))))
178180
179181 (declaim (ftype (function (vector)
180182 (values (unsigned-byte 32)))
+2
-1
aserve/test/t-aserve.cl less more
5252
5353 (eval-when (compile eval load)
5454 (defvar *aserve-examples-directory*
55 (or (cl-fad:directory-exists-p "/usr/share/doc/cl-aserve/examples/")
55 (or (cl-fad:directory-exists-p "aserve/examples/")
56 (cl-fad:directory-exists-p "examples/")
5657 (error "Could not find the aserve examples directory.")))
5758 )
5859