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
gendl
gendl
Commits
b1d64928
Commit
b1d64928
authored
Feb 26, 2013
by
Dave Cooper
Browse files
Fixed error for Common Lisps on which Gendl is not yet supported.
parent
7bb2a191
Changes
2
Hide whitespace changes
Inline
Side-by-side
gdl/base/common/package.lisp
View file @
b1d64928
...
...
@@ -21,14 +21,15 @@
(
in-package
:common-lisp-user
)
#-
(
or
allegro
lispworks
sbcl
ccl
abcl
)
(
error
"
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
#-
(
or
allegro
lispworks
sbcl
ccl
abcl
)
(
error
"
D'oh! GenDL is not yet supported on ~a. If you would like to try porting it, start with this file,
gdl/base/common/genworks.lisp.
Also, PortableAllegroserve is needed for the web framework.
If you are interested in this effort we would love to hear from you at open-source@genworks.com.
"
(
lisp-implementation-type
))
"
(
lisp-implementation-type
))
)
(
defpackage
:gdl
...
...
@@ -251,12 +252,12 @@ If you are interested in this effort we would love to hear from you at open-sour
#:*onclick-function*
))
#-
(
or
allegro
lispworks
sbcl
ccl
abcl
ecl
)
(
error
"Need package for mop:validate-superclass for currently running lisp.~%"
)
#-
(
or
allegro
lispworks
sbcl
ccl
abcl
ecl
clisp
)
(
error
"Need package for mop:validate-superclass for currently running lisp.~%"
)
(
defpackage
:com.genworks.lisp
(
:use
:common-lisp
)
(
:shadow
#:intern
)
(
:nicknames
:glisp
)
(
:import-from
#+
(
or
allegro
abcl
)
:mop
#+
lispworks
:hcl
#+
sbcl
:sb-mop
#+
ccl
:ccl
#+
ecl
:clos
(
:import-from
#+
(
or
allegro
abcl
)
:mop
#+
lispworks
:hcl
#+
sbcl
:sb-mop
#+
ccl
:ccl
#+
(
or
ecl
clisp
)
:clos
#:validate-superclass
)
(
:export
#:*external-text-format*
#:*gdl-home*
...
...
regression/tasty/source/center-loss.lisp
0 → 100644
View file @
b1d64928
(
in-package
:gdl-user
)
(
define-object
tasty-center-test
(
base-object
)
:objects
((
child1
:type
'box
:center
(
make-point
1
0
0
)
:width
1
:length
1
:height
1
)
(
child2
:type
'box
:width
1
:length
1
:height
1
)))
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