23 lines
800 B
Common Lisp
23 lines
800 B
Common Lisp
|
;;;; tests/ydk.lisp
|
||
|
|
|
||
|
|
(in-package :cl-deck-builder2-test)
|
||
|
|
|
||
|
|
;; blah blah blah.
|
||
|
|
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
;; YDK Tests
|
||
|
|
|
||
|
|
;; (format t "~A"
|
||
|
|
;; (ydk-read
|
||
|
|
;; (asdf:system-relative-pathname :cl-deck-builder2
|
||
|
|
;; #P"data/OG_bechi_21-Chaos Turbo.ydk")))
|
||
|
|
|
||
|
|
;; (defparameter *ydk*
|
||
|
|
;; (cl-deck-builder2.models.ydk::read-ydk-as-model
|
||
|
|
;; (asdf:system-relative-pathname :cl-deck-builder2 #P"data/OG_bechi_21-Chaos Turbo.ydk")))
|
||
|
|
|
||
|
|
;; (merge-pathnames (make-pathname :name "04178474" :type "jpg")
|
||
|
|
;; (asdf:system-relative-pathname :cl-deck-builder2 "static/public/ygoprodeck"))
|
||
|
|
|
||
|
|
;; (defparameter *passcode-list* (cl-deck-builder2.models.ydk::ydk-complete-list *ydk*))
|