anchor.diff:      (-boolean :true)))
   
   (defun -is-property-key (arg)
  -  (when (or (eql (type-of arg) '-string-proto)
  -	    (eql (type-of arg) '-symbol-proto))
  -    (-boolean :true))
  -  (-boolean :false))
  +  (if (or (eql (-type arg) 'string-type)
  +	  (eql (-type arg) 'symbol-type))
  +      *boolean-true*
  +      *boolean-false*))
   
   (defun -is-reg-exp (arg)
     )
  
positive.code:      (error "Invalid argument"))))
  
  (defun to-primitive (arg &key (hint 'default))
    )
  
  (defun -is-array (arg)
    (when (not (eql (-type arg) 'object-type))
  
negative.code: 	 *boolean-false*)))
  
  (defun -is-callable (arg)
    (when (not (eql (-type arg) 'object-type))
      (return-from -is-callable *boolean-false*))
    (if (null (slot-value arg '-call))
        *boolean-false*
        *boolean-true*))
  
  (defun -is-constructor (arg)
    (when (not (eql (-type arg) 'object-type))
      (return-from -is-constructor *boolean-false*))
    (if (null (slot-value arg '-construct))
        *boolean-false*
        *boolean-true*))
  
  (defun -is-integer (arg)
    (when (not (eql (type-of arg) '-number-proto))
  