SA
(defstruct ia
(a (make-array 2 :adjustable t :element-type 'bit) :type (vector (integer 0 1) 2)))
Size: a a a
SA
(defstruct ia
(a (make-array 2 :adjustable t :element-type 'bit) :type (vector (integer 0 1) 2)))
SA
SA
(make-ia :a (make-array 2 :adjustable t :element-type 'bit :initial-contents '(1 0)))
SA
SA
БП
SA
SA
SA
SA
SA
O
LOAD-FOREIGN-LIBRARY
тянет либы?AZ
LOAD-FOREIGN-LIBRARY
тянет либы?O
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/mssql.lisp"
(("libsybdb" all) (string-append
(assoc-ref inputs "freetds")"/lib/" all))))))))
(guix/linux-gnu)[hellseher@guix-t420 ~/code/hacks/guix]$: grep lib /gnu/store/anhflb1n5flxdybklqsfmq4xj0g1a965-cl-mssql-0.0.3-1.045602a/share/common-lisp/source/cl-mssql/src/mssql.lisp
;;;; This file is part of the cl-mssql library, released under Lisp-LGPL.
(define-foreign-library sybdb
(:darwin "/gnu/store/2hyz0qb328cyg926b25ccjkdr04fqj2s-freetds-1.2.18/lib/libsybdb.dylib")
(:linux (:or "/gnu/store/2hyz0qb328cyg926b25ccjkdr04fqj2s-freetds-1.2.18/lib/libsybdb.so" "/gnu/store/2hyz0qb328cyg926b25ccjkdr04fqj2s-freetds-1.2.18/lib/libsybdb.so.5"))
(:unix "/gnu/store/2hyz0qb328cyg926b25ccjkdr04fqj2s-freetds-1.2.18/lib/libsybdb.so")
(with-simple-restart (skip "Skip loading foreign library tds.")
(use-foreign-library sybdb))
DP
DP
VL
VL
VL
DP