I wanted to use al:show-native-message-box
which is equivalent of
(defcfun ("al_show_native_message_box" show-native-message-box) :int (display :pointer) (title :string) (heading :string) (text :string) (buttons :string) (flags messagebox-flags))
But when i wrote: (in-package #:al-tut) (defvar *created-display*) (defun main () (unless (al:init) (al:show-native-message-box (c:null-pointer) (c:null-pointer) (c:null-pointer) "allegro init failed." (c:null-pointer) (c:null-pointer)) 'AL-INIT-FAILED) (setf *created-display* (al:create-display 800 600)) (unless *created-display* (al:show-native-message-box (c:null-pointer) (c:null-pointer) (c:null-pointer) "window init failed. " (c:null-pointer) (c:null-pointer)) 'AL-CREATE-DISPLAY-FAILED) (c:with-foreign-string (text "MessageBox Title") (al:show-native-message-box *created-display* text (c:foreign-enum-value 'al::messagebox-flags :error) (c:foreign-enum-value 'al::filechooser-modes :show-hidden) (c:null-pointer) (c:null-pointer))) (al:destroy-display *created-display*))
where
(defcenum messagebox-flags (:warn 1) (:error 2) (:ok-cancel 4) (:yes-no 8) (:question 16))
in the source code.
But SBCL gives me the error:
2 is not a Lisp string or pointer. [Condition of type SIMPLE-ERROR]
Need help. Thanks