Plaster
New
List
Login
common-lisp
default
anonymous
2024.01.14 14:42:19
@export (defclass server-response () ((status :initarg :status :initform "success" :accessor status) (code :initform 200 :initarg :code :accessor code) (message :initarg :message :accessor message) (data :initarg :data :accessor data))) @export (defun make-server-response (data &optional &key (status NIL status-p) (code NIL code-p) (message NIL message-p)) (make-instance 'server-response :data data :status status :code code :message message))
Raw
Annotate
Repaste
Edit