anchor.diff:  	 *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-of arg) '-object-proto))
  -    (return-from -is-constructor (-boolean :false))
  -  ))
  +  (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))
  
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 :true)))
  
  (defun -is-property-key (arg)
    (if (or (eql (-type arg) 'string-type)
  	  (eql (-type arg) 'symbol-type))
        *boolean-true*
        *boolean-false*))
  
  (defun -is-reg-exp (arg)
    )
  