File: features.lisp

package info (click to toggle)
cl-postmodern 20180430-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 804 kB
  • sloc: lisp: 7,423; makefile: 2
file content (13 lines) | stat: -rw-r--r-- 398 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
(defpackage :cl-postgres.features
  (:use :common-lisp)
  (:export #:sbcl-available
           #:sbcl-ipv6-available))
(in-package :cl-postgres.features)


(eval-when (:compile-toplevel :load-toplevel :execute)
  (when (find-package 'sb-bsd-sockets)
    (pushnew 'sbcl-available *features*)

    (when (find-symbol "INET6-SOCKET" 'sb-bsd-sockets)
      (pushnew 'sbcl-ipv6-available *features*))))