2 (in-package :cl-x86-asm
)
4 (defparameter *asm-directives
*
7 (list (function (lambda (argument) (byte-p argument
)))))
9 (list (function (lambda (argument) (word-p argument
)))))
11 (list (function (lambda (argument) (dword-p argument
)))))
13 (list (function (lambda (argument) (qword-p argument
)))))
15 (list (function (lambda (argument) (stringp argument
))))
18 (defun directive-db (argument) )
19 (defun directive-dw (argument) )
20 (defun directive-dd (argument) )
21 (defun directive-dq (argument) )