iolib.asd

   1 ;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
   2
   3 (in-package #:cl-user)
   4
   5 (defpackage #:iolib-system
   6   (:use #:common-lisp #:asdf))
   7
   8 (in-package #:iolib-system)
   9
  10 (sb-alien:with-alien ((a (array (sb-alien:unsigned 8) 4)))
  11   (dotimes (i 4)
  12     (setf (sb-alien:deref a i) (1+ i)))
  13   (pushnew (case (sb-alien:deref (sb-alien:cast (sb-alien:addr a) (* sb-alien:unsigned)))
  14              (#x01020304 :big-endian)
  15              (#x04030201 :little-endian)
  16              (otherwise
  17               (error "Your machine seems to be neither little-endian nor big-endian. Please report this to the maintainer(s).")))
  18            *features*))
  19
  20 (defsystem :iolib
  21   :description "I/O library for SBCL."
  22   :author "Stelian Ionescu <sionescu@common-lisp.net>"
  23   :maintainer "Stelian Ionescu <sionescu@common-lisp.net>"
  24   :licence "GPL-2.1"
  25   :depends-on (#:iolib-alien-ng
  26                #:net.sockets
  27                #:net.dns-client))