blob: 40fc653aef47cb3e2da2b1440c830a4cc41d3f71 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(in-package :vampire)
(db:with-transaction ()
(let ((alucard (make-instance 'user :name "alucard")))
(setf (user-pwhash alucard) (hash-string "password" (user-pwsalt alucard)))
(make-instance 'invite :maker alucard)
(mapcar
(lambda (s)
(make-instance
'playlist
:title s :user alucard :editors (list alucard)
:cover-image "https://cicadas.surf/~shoshin/casiopeia/basement%20days/cover.png"))
'("One" "Two" "Three"))))
|
