Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
antik
gsll
Commits
5fb9ef54
Commit
5fb9ef54
authored
Jan 11, 2011
by
Liam M. Healy
Browse files
Don't import 'grid:dimensions, use alexandria:make-keyword
parent
0701df89
Changes
3
Hide whitespace changes
Inline
Side-by-side
gsll.asd
View file @
5fb9ef54
;; Definition of GSLL system
;; Liam Healy
;; Time-stamp: <2011-01-
0
1 1
0:57:50
EST gsll.asd>
;; Time-stamp: <2011-01-
1
1 1
9:16:46
EST gsll.asd>
;;
;; Copyright 2006, 2007, 2008, 2009, 2010, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
...
...
@@ -30,7 +30,7 @@
:version
"0"
:author
"Liam M. Healy"
:licence
"GPL v3"
:depends-on
(
antik
cffi-grovel
trivial-garbage
#+
fsbv
fsbv
)
:depends-on
(
antik
cffi-grovel
trivial-garbage
alexandria
#+
fsbv
fsbv
)
:components
((
:module
init
:components
...
...
init/init.lisp
View file @
5fb9ef54
;; Load GSL
;; Liam Healy Sat Mar 4 2006 - 18:53
;; Time-stamp: <2011-01-1
0
1
8:28:14
EST init.lisp>
;; Time-stamp: <2011-01-1
1
1
9:06:42
EST init.lisp>
;;
;; Copyright 2006, 2007, 2008, 2009, 2010, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
...
...
@@ -22,7 +22,7 @@
(
:nicknames
:gsl
)
(
:use
:common-lisp
:cffi
)
(
:import-from
:grid
#:dimensions
:grid
#:element-type
#:foreign-array
#:matrix
#:dim0
#:dim1
#:^
#:copy
)
(
:export
#:element-type
#:dim0
#:dim1
#:copy
))
...
...
init/mobject.lisp
View file @
5fb9ef54
;; Definition of GSL objects and ways to use them.
;; Liam Healy, Sun Dec 3 2006 - 10:21
;; Time-stamp: <2011-01-1
0 18:19:11
EST mobject.lisp>
;; Time-stamp: <2011-01-1
1 19:10:48
EST mobject.lisp>
;;
;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
...
...
@@ -102,7 +102,7 @@
(
if
(
have-at-least-gsl-version
gsl-version
)
`
(
progn
,
(
if
cbinfo
`
(
,
(
if
(
member
'
grid:
dimensions
cl-alloc-args
)
`
(
,
(
if
(
member
'dimensions
cl-alloc-args
)
'def-ci-subclass
'def-ci-subclass-1d
)
,
class
,
superclasses
...
...
@@ -288,9 +288,9 @@
(
if
(
listp
symbol
)
(
mappend
(
lambda
(
s
)
(
symbol-keyword-symbol
s
singular
))
symbol
)
(
if
(
member
(
singular-symbol
symbol
)
singular
)
(
list
(
intern
(
symbol-name
symbol
)
:keyword
)
(
list
(
alexandria:make-keyword
symbol
)
`
(
list
,
(
singular-symbol
symbol
)))
(
list
(
intern
(
symbol-name
symbol
)
:keyword
)
(
list
(
alexandria:make-keyword
symbol
)
symbol
))))
;;;;****************************************************************************
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment