-name '*.html' -o \
-name 'TAGS' -o \
-name 'tags' -o \
+ -name 'test-passed' -o \
-name 'local-target-features.lisp-expr' \) -print | xargs rm -f
(let ((dso-name (unix-name (car (output-files operation dso)))))
(unless (zerop
(run-shell-command
- "gcc -shared -o ~S ~{~S ~}"
- dso-name
+ #-sunos "gcc -shared -o ~S ~{~S ~}"
+ #+sunos "gcc -shared -lresolv -lsocket -lnsl -o ~S ~{~S ~}" dso-name
(mapcar #'unix-name
(mapcan (lambda (c)
(output-files operation c))
message. Priority 7 is kern.debug; you'll probably want to look at
/etc/syslog.conf or local equivalent to find out where the message ended up
||#
-
+#-sunos
(deftest simple-local-client
(let ((s (make-instance 'local-socket :type :datagram)))
(format t "~A~%" s)
# build directory. Right now, however, where there are dependencies
# between contrib packages, we want the _uninstalled_ versions to be
# found
-export SBCL_HOME=`pwd`/contrib
+SBCL_HOME=`pwd`/contrib
+export SBCL_HOME
SBCL="`pwd`/src/runtime/sbcl --noinform --core `pwd`/output/sbcl.core --userinit /dev/null --sysinit /dev/null --disable-debugger"
SBCL_BUILDING_CONTRIB=1
;;; work on any ELF system with dlopen(3) and dlsym(3)
;;; It also works on OpenBSD, which isn't ELF, but is otherwise modern
;;; enough to have a fairly well working dlopen/dlsym implementation.
-#-(or linux FreeBSD OpenBSD)
+#-(or linux sunos FreeBSD OpenBSD)
(macrolet ((define-unsupported-fun (fun-name)
`(defun ,fun-name (&rest rest)
"unsupported on this system"
(error 'unsupported-operator :name ',fun-name))))
(define-unsupported-fun load-1-foreign)
(define-unsupported-fun load-foreign))
-#+(or linux FreeBSD OpenBSD)
+#+(or linux sunos FreeBSD OpenBSD)
(progn
;;; flags for dlopen()
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.7.12.52"
+"0.7.12.53"