File: features.lisp

package info (click to toggle)
cl-postmodern 20161031-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 660 kB
  • sloc: lisp: 5,344; makefile: 4
file content (13 lines) | stat: -rw-r--r-- 389 bytes parent folder | download 
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)
  (when (find-package 'sb-bsd-sockets)
    (pushnew 'sbcl-available *features*)

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