Lines Matching defs:make
178 hash0 (make-hash-table)
179 hash1 (make-hash-table)
187 struc0 (make-test :a 1 :b 2 :c #\c)
188 struc1 (make-test :a 1 :b 2 :c #\c)
579 (eq-test nil #'constantp (make-hash-table))
736 (find-symbol "NIL" (prog1 (make-package "JUST-TESTING" :use '())
782 (defun make-person (first-name last-name)
787 (eq-eval '*john* '(defvar *john* (make-person "John" "Dow")))
788 (eq-eval '*sally* '(defvar *sally* (make-person "Sally" "Jones")))
934 ;; TODO make-array (will be rewritten)
938 ;; make-list - function
939 (equal-test '(nil nil nil) #'make-list 3)
940 (equal-test '((1 2) (1 2)) #'make-list 2 :initial-element '(1 2))
941 (eq-test nil #'make-list 0)
942 (eq-test nil #'make-list 0 :initial-element 1)
944 ;; make-package - function
945 (setq pack1 (make-package "PACKAGE-1" :nicknames '("PACK-1" "PACK1")))
946 (setq pack2 (make-package "PACKAGE-2" :nicknames '("PACK-2" "PACK2") :use '("PACK1")))
952 ;; make-string - function
953 (equal-test "55555" #'make-string 5 :initial-element #\5)
954 (equal-test "" #'make-string 0)
955 (error-test #'make-string 10 :initial-element t)
956 (error-test #'make-string 10 :initial-element nil)
957 (error-test #'make-string 10 :initial-element 1)
958 (eql-test 10 #'length (make-string 10))
960 ;; make-symbol - function
963 (eq-test nil #'eq (make-symbol a) (make-symbol a))
964 (equal-test a #'symbol-name (make-symbol a))
966 (setq temp-symbol (make-symbol temp-string))
1157 (eq-test t #'packagep (make-package "TEST-PACKAGE"))
1266 (makunbound '*x*) ;; make sure it is not bound
1649 (setq pk1 (make-package 'pk1))
1652 (setq pk2 (make-package 'pk2 :use '(pk1)))
1729 (setq test (make-symbol "PSEUDO-PI"))